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SUMMARY 


This  report  describes  software  written  to  use  the  DART  computer  system  for 
real  time  narrow  band  spectrum  analysis.  This  material  is  of  general  interest 
to  those  engaged  in  programming  minicomputer  systems  for  signal  processing 
applications,  and  of  particular  interest  to  those  using  the  DART  system  for 
investigating  frequency  domain  signal  processing  techniques.  This  work  was 
performed  in  the  Digital  and  Signal  Processing  Branch  of  the  Ordnance  Systems 
Development  Department  and  was  funded  by  Naval  Air  Systems  Command. 
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GENERALIZED  MULTI-CHANNEL  ANALYSIS  PROGRAMS  FOR  THE  DART 
(Digital  Analysis  in  Real  Time)  COMPUTER  SYSTEM 


I.  INTRODUCTION 

Many  techniques  for  processing  signals  involve  narrow  band  spectrum 
analysis  as  a first  step.  The  computer  programs  described  herein  were  written 
to  use  a system  of  minicomputers  to  perform  spectrum  analysis  on  a group  of 
analog  input  channels.  The  resulting  discrete  Fourier  transform  (DFT) 

(reference  1)  coefficients  are  periodically  sent  to  other  computers  in  the 
system  for  further  processing  in  real  time. 

Figure  1 shows  a block  diagram  of  the  DART  (digital  analysis  in  real 
time)  minicomputer  system  developed  by  the  Signal  and  Digital  Processing  Branch. 
Four  Data  General  NOVA  800  minicomputers  (reference  2)  perform  the  computations. 

A multiprocessor  communications  adapter  (MCA)  provides  for  transfer  of  data 
among  the  computers.  Multichannel  A/D  and  D/A  converters  are  interfaced  to 
CPU-B.  CPU-A  hosts  a high  speed  special  purpose  hardware  fast  Fourier  trans- 
form (FFT)  computer  (reference  3).  The  remaining  two  computers  C and  D are 
each  interfaced  to  a graphics  terminal,  disc  memory,  and  digital  magnetic 
tape  unit. 

The  channels  of  data  to  be  analyzed  are  fed  into  the  A/D  converters 
on  CPU-B  where  they  are  periodically  sampled  and  digitized.  A group  of  these 
time  samples  is  accumulated  in  the  core  memory  of  CPU-B  for  every  input 
channel.  Each  block  of  time  samples  is  transferred  from  CPU-B  via  the  MCA 
to  CPU-A  for  computation  of  the  corresponding  DFT  coefficients.  A selected 
frequency  band  of  coefficients  is  made  available  to  be  sent  from  CPU-A 
to  computer  C or  D for  further  processing. 

The  software  programs  performing  the  above  functions  in  computers 
A and  B are  written  in  NOVA  assembly  language  for  maximum  efficiency 
of  memory  and  execution  speed.  With  program  PAPB  (Appendix  A)  in  CPU-B  and 
PAPABFP  (Appendix  B)  in  CPU-A,  these  two  computers  may  function  independently 
as  a multi-channel  spectrum  analysis  system,  with  display  of  a single  channel 

W.  T.  Cochran,  J.  W.  Cooley,  et  aU  "What  is  the  Fast  Fourier  Transform?" 
Proceedings  of  the  IEE,  Vol.  55,  pg.  1664-1674,  October,  1967. 
i How  to  Use  the  NOVA  Computers,  Data  General  Corporation,  Southboro,  Mass.,  1971. 
J Operating  Manual  for  System  306/400  Spectrum  Analyzer.  Elsytec  Corporation, 
Syossett,  New  York,  1972. 
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on  the  monitor  scope  attached  to  CPU-A. 

However,  several  other  assembly  language  routines  have  been  added  to  a NOVA 
BASIC  interpreter  (reference  4)  to  interface  with  those  in  CPU's  A and  B. 

These  CALL  routines  described  below  allow  BASIC  programs  executing  under  an 
interpreter  resident  in  CPU's  C or  D to  select  parameters  of  the  spectrum 
analysis  and  receive  data  from  CPU-A  for  further  processing.  Thus,  algorithms 
for  further  frequency  domain  processing  of  the  data  may  be  developed  in  much 
higher  level  language.  Reference  5 documents  a set  of  such  software  written 
to  perform  array  processing  on  data  analyzed  by  the  programs  described  herein. 

II.  System  Processing  Scheme 
A.  Processing  Cycle 

Figure  2 shows  the  overall  timing  and  data  flow  scheme  for  the  real 
time  spectral  analysis.  A processing  cycle  begins  each  time  a new  block  of 
time  samples  has  been  accumulated  in  CPU-B.  An  interrupt  service  routine 
(described  in  detail  later)  samples  the  A/D  converters  and  sets  a flag  word 
XCFLG  in  memory  each  time  another  data  block  has  been  saved.  When  a new 
data  block  is  ready,  a synchronization  flag  word  PFLG  is  sent  from  CPU-B  to 
A and  D (C ) in  turn  via  the  MCA  communication  network.  The  sign  of  PFLG  is 
selected  by  a console  switch  on  CPU-B  and  it  thereby  indicates  to  A and  the 
destination  computer  whether  to  continue  processing. 

Following  transfer  of  the  PFLG,  CPU-B  attempts  to  send  the  time  samples 
for  channel  1 to  A via  the  MCA.  This  network  (see  reference  2)  is  of  such  a 
nature  that  action  must  be  taken  by  the  receiving  as  well  as  the  transmitting 
CPU.  Moreover,  a sending  CPU  is  able  to  determine  if  the  data  transmission 
was  accomplished  or  if  the  receiver  was  unresponsive.  Therefore  the  program 
in  CPU-B  repeatedly  tries  to  transmit  the  channel  1 data  to  A until  successful 
Then  it  attempts  to  send  channel  2 data  and  so  on.  Any  delay  required  between 
transmissions  is  thus  automatically  accomplished  by  CPU-A  enabling  its  receiver 
only  when  it  is  ready  for  the  next  block  of  data. 

After  receiving  the  time  samples  for  each  channel,  CPU-A  computes  the 
corresponding  DFT  coefficients  using  a hardware  FFT  peripheral  (reference  3). 

The  program  in  A then  attempts  to  send  a selected  group  of  these  coefficients 
to  the  destination  computer  D(C).  Again,  any  necessary  delay  is  accomplished 
by  the  destination  computer  keeping  its  MCA  receiver  off  until  ready  for  more 
data.  The  DFT  coefficients  computed  by  computer  A are  in  block  floating  point 
format,  i.e.,  a group  of  16-bit  fractions  and  a single  exponent  associated 
with  the  entire  block.  Therefore,  the  BASIC  CALL  12  program  receiving  data  in 
CPU-D(C)  converts  each  channel's  DFT  to  Data  General  floating  point  notation 
having  a separate  exponent  with  each  data  word. 

The  processing  thus  continues  with  transfer  of  data  from  B to  A to  D(C) 
one  channel  at  a time.  When  CPU-B  has  sent  the  last  channel's  time  samples 


^Extended  BASIC  User's  Manual.  Data  General  Corporation,  Southboro,  Mass.,  1972. 
5"Array  Processing  Programs  for  a System  of  NOVA  Computers,"  NSWC/WOL/TR  77-2 , 
January,  1977,  C.  A.  Shively  and  L.  S.  Biller. 

2 Ibid. 

3Ibid. 


6 


PROCESSING  CYCLE 


NSWC/WOL/TR  77-3 


to  A,  PAPB  returns  to  a point  where  it  tests  the  state  of  the  memory  flag 
XCFLG.  After  computing  the  last  channel  DFT,  CPU-A  again  enables  its  MCA 
receiver  and  waits  for  transmission  of  the  PFLG  from  B.  Following  conversion 
of  the  last  channel  DFT,  control  in  the  destination  computer  is  returned  to  the 
BASIC  interpreter.  Other  BASIC  statements  may  then  be  executed  to  process 
or  display  the  DFT's,  and  CALL  12  again  invoked  in  time  for  the  next  PFLG  from 
CPU-A. 


In  the  meantime,  CPU-B  has  been  accumulating  the  next  block  of  time 
samples.  A sample  rate  clock  periodically  interrupts  the  program  transferring 
data  to  A and  control  passes  to  a routine  ISR  that  reads  the  A/D  converter 
samples  into  memory.  When  a complete  block  of  samples  has  been  gathered, 

ISR  sets  SCFLG  and  the  entire  processing  cycle  begins  again  with  transfer  of 
the  PFLG.  ISR  then  begins  filling  an  alternate  set  of  memory  buffers  with 
time  samples  so  that  no  input  data  is  skipped. 


B.  Initialization  and  Control 


The  number  of  samples  in  each  time  block  and  the  number  of  input  channels 
are  parameters  of  operation  of  program  PAPB  in  CPU-B.  In  addition  to  these 
numbers,  the  exact  band  of  DFT  coefficients  sent  to  the  destination  computer 
must  be  specified  to  the  program  PAPABFP  in  CPU-A.  Each  program  includes  an 
initialization  section  of  code  during  which  it  expects  to  receive  values  for 
these  parameters  via  the  MCA.  A BASIC  CALL  routine  CALL  11  (described  later) 
allows  the  destination  computer  to  send  values  for  the  number  of  channels, 
data  block  size,  and  the  desired  DFT  band  to  CPU's  A and  B. 


Following  receipt  of  operating  parameters,  CPU-B  waits  until  console 
switch  0 is  raised  to  begin  taking  samples.  If  this  switch  is  lowered  during 
a subsequent  processing  cycle,  the  next  PFLG  is  set  to  zero  and  control  is 
passed  back  to  the  initialization  sections  in  CPU's  A and  B where  they  await 
transmission  of  new  operating  parameters.  The  state  of  PFLG  is  returned  by 
CALL  12  receiving  the  data  in  the  destination  computer  and  may  therefore  be 
tested  to  alter  program  flow  where  and  when  processing  stops  in  A and  B. 

III.  PROGRAM  DESCRIPTIONS 


A.  Computer  B 

The  processing  in  CPU-B  is  handled  by  the  assembly  language  program 
PAPB  (see  Appendix  A for  a listing).  As  described  above,  the  two  main  functions 
of  this  program  are  to  accumulate  blocks  of  input  time  samples  and  send  each 
block  to  CPU-A  for  DFT  analysis.  In  effect  two  programs  carry  out  these  functions 
concurrently.  A background  section  of  code  handles  the  transfers  from  a set  of 
memory  output  buffers  to  CPU-A.  Its  flow  is  periodically  interrupted  by  a 
real  time  clock  to  invoke  a foreground  routine  that  accumulates  the  A/D 
samples  in  a set  of  memory  input  buffers.  Control  returns  from  the  foreground 
to  the  background  at  the  point  of  interruption.  Communication  between  the 
two  routines  is  accomplished  through  common  memory  flags. 
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Background 

A flow  diagram  of  the  background  section  of  PAPB  is  shown  in  Figure  3. 

Upon  initial  entry,  the  background  waits  to  receive  values  for  the  number 
of  channels  and  time  block  size  from  the  destination  computer  via  the  MCA. 

PAPB  then  allocates  the  corresponding  memory  input  and  output  buffers  and 
halts  if  insufficient  memory  is  available  in  computer  B.  After  console 
switch  0 is  raised,  the  clock  interrupt  is  enabled  to  permit  periodic  entry 
into  the  foreground  program. 

A processing  cycle  begins  when  the  foreground  sets  memory  flag  XCFLG  to 
indicate  that  a new  block  of  time  samples  is  ready  for  transmission  to  CPU-A. 

If  XCFLG  is  already  set  when  the  background  first  tests  it,  the  program  halts 
to  indicate  that  it  cannot  process  contiguous  time  blocks  at  the  given  sample 
rate  and  number  of  channels.  Similarly,  if  A is  not  responsive  to  receiving 
the  subsequent  PFLG,  PAPB  halts  to  warn  the  user  that  the  processing  cycle  in 
CPU-A  is  too  time  consuming. 

If  console  switch  0 is  down,  control  then  returns  to  the  background 
initialization  at  PAPB.  Otherwise,  the  background  program  reads  the  console 
switches  and  sets  an  address  word  in  the  foreground  to  output  samples  from 
the  correspondingly  numbered  input  channel.  Then  the  program  sends  each 
channel's  block  of  time  samples  to  CPU-A  in  order  and  returns  to  test  XCFLG  for 
start  of  the  next  cycle. 

Foreground 

Upon  occurrence  of  an  interrupt  from  the  real  time  clock  (reference  2) 
control  is  passed  to  the  interrupt  service  routine  ISR  shown  in  Figure  4.  ISR 
sets  the  A/D  converter  to  sample  all  analog  inputs  and  then  store  the  sample 
from  each  channel  in  turn  into  a memory  buffer.  The  sample  from  the  channel 
selected  for  display  is  then  output  to  the  D/A  converter.  Reference  6 gives  a 
complete  description  of  the  operation  of  the  A/D  and  D/A  converters  interfaced 
to  CPU-B. 

ISR  next  concatenates  the  new  sample  from  each  channel  onto  a time  series 
block  being  formed  in  memory.  If  the  sample  count  SCNT  is  odd,  each  8-bit 
sample  is  packed  into  the  right  byte  of  a memory  word.  If  SCNT  is  even, 
packing  is  into  the  left  byte.  If  the  newly  incremented  sample  count  is  equal 
to  the  block  size,  SCNT  is  reset  to  0,  XCFLG  is  set  to  -1,  and  the  input  and 
output  buffer  pointers  are  swapped.  Control  is  then  returned  to  the  background 
program  at  the  point  of  interruption. 

B.  Computer  A 

A better  understanding  of  the  software  performing  spectrum  analysis 
in  computer  A will  result  by  first  looking  at  its  hardware  configuration. 

CPU-A  is  the  central  processor  of  a stand-alone  spectrum  analyzer  built  commercially 
by  the  Elsytec  Corporation  (reference  3).  A special  purpose  peripheral  computes 


3Ibid. 
c Ibid. 
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FIG.  4 FOREGROUND  FLOW  OF  PAPB 
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the  discrete  Fourier  transform  of  data  in  the  memory  of  computer  A using  a 
Fast  Fourier  Transform  (FFT)  algorithn (reference  1).  Analyzer  peripheral 
hardware  also  includes  a control  panel  and  output  buffers  for  refreshing  an 
oscilloscope  display. 

Software  provided  by  the  manufacturer  gives  a variety  of  operations 
on  one  or  two  input  channels.  A new  main  program  PAPABFP  has  been  written 
to  use  computer  A for  multi-channel  spectrum  analysis  in  conjunction  with  the 
other  computers  in  the  DART  system.  A separate  subroutine  CNTF  (Appendix  C) 
was  written  to  normalize  DFT  results.  Elsytec  proprietary  subroutines  are 
still  used  for  some  of  their  original  functions.  HFFTI  and  CALLS  control  the 
operation  of  the  hardware  FFT  peripheral,  SCPLD  handles  display  of  data  on 
the  monitor  scope,  and  an  auxiliary  math  routine  MATHS  finds  the  largest  number 
in  a data  array. 

A flow  diagram  of  PAPABFP  is  shown  in  Figure  5 and  an  assembly  listing 
is  given  in  Appendix  B.  Unlike  PAPB  in  which  both  foreground  and  background 
programs  run  interlaced  in  time,  PAPABFP  is  straight  forward  execution  of 
a single  process.  As  in  PAPB,  PAPABFP  initially  waits  for  parameters  via 
the  MCA.  These  include  the  number  of  channels  NCH,  number  of  lines  in  FFT  NL, 
number  of  lines  returned  to  destination  computer  NLR,  and  the  cell  number  of 
the  first  line  returned  RLD. 

Following  reception  of  parameters  CPU-A  enters  the  main  processing 
loop  where  it  waits  to  receive  the  PFLG  from  CPU-B.  If  CPU-A  is  unsuccessful 
in  relaying  PFLG  on  to  the  destination  computer,  it  sets  a flag  MTCRF  to 
skip  sending  DFT  data  computer  later  in  the  cycle.  Thus,  once  initialized, 

PAPB  and  PAPBFP  may  perform  spectrum  analysis  regardless  of  whether  a post 
processing  computer  is  receptive.  If  used,  the  destination  computer  may  be 
either  CPU  C or  D as  selected  by  the  MCA  code  word  TMMC  in  PAPABFP. 

If  PFLG  * 0,  control  returns  to  the  initialization  of  parameters  via 
the  MCA.  Otherwise,  the  console  switches  are  read  to  determine  which 
channel  spectrum  will  be  displayed  later  on  the  oscilloscope.  The  MCA 
receiver  is  then  enabled  to  await  transmission  of  channel  1 time  samples  from 
CPU-B. 

After  each  channel's  samples  are  received  and  unpacked,  the  hardware 
FFT  peripheral  (HFT)  is  invoked  via  Elsytec  proprietory  subroutines  CALLS 
and  HFFTI  to  compute  their  DFT.  The  HFT  is  about  an  order  of  magnitude  faster 
than  software,  since  it  converts  1024'  real  time  points  into  512  complex  frequency 
coefficients  in  about  18  milliseconds.  The  HFT  automatically  scales  the  data 
when  necessary  to  avoid  overflow  in  the  fixed  point  computations.  The 
resulting  output  DFT  coefficients  are  in  block  floating  point  notation  i.e., 
a group  of  16-bit  binary  fractions  all  associated  with  the  same  base  tv/o 
exponent. 


Ibid. 
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If  the  destination  computer  accepted  the  PFLG,  the  group  of  NLR  DFT 
cells  starting  at  cell  RLD  are  moved  to  a different  memory  buffer  for 
output.  A block  normalization  is  then  performed  so  that  their  largest  mantissa 
is  between  1/2  and  1.  CPU-A  then  repeatedly  attempts  to  send  these  DFT's 
to  the  destination  computer  until  it  is  ready  to  receive  them. 

If  the  current  channel  being  processed  was  selected  for  display, 
its  entire  band  of  DFT's  are  converted  to  polar  coordinates.  An  Elsytec  proprietary 
subroutine  SCPLD  is  then  invoked  to  output  the  spectrum  to  the  scope  refresh 
buffer  and  to  select  the  display  format.  If  console  switch  0 is  up,  the  display 
is  logarithmic,  down,  linear.  Each  of  the  two  output  buffers  holds  a maximum 
of  512  frequency  lines.  Therefore,  if  a time  sample  block  size  of  more  than 
2048  is  used,  only  the  first  1024  DFT  coefficients  will  be  displayed. 

C.  Destination  Computer 

An  assembly  language  routine  RMDFE  has  been  added  to  a NOVA  BASIC 
interpreter  (reference  4)  to  allow  BASIC  programs  to  interface  with  PAPB 
and  PAPABFP.  The  assembly  listing  in  Appendix  D includes  extensive  comments 
on  RMDFEF  and  its  usage.  One  section  of  RMDFEF  allows  the  destination  computer 
to  initialize  PAPB  and  PAPABFP,  and  the  other  to  receive  the  PFLG  and  DFT 
data  from  CPU-A. 

Initialization  is  achieved  by  invoking 
CALL  11 ,NCH,NL,NLR,  RLD 

where  NCH  is  the  number  of  input  channels,  NL  is  the  number  of  spectral  lines 
resulting  from  DFT,  NLR  is  the  number  of  lines  returned  to  the  destination 
computer,  and  RLD  is  the  cell  number  of  the  first  coefficient  returned. 

A diagram  of  the  flow  of  CALL  11  is  shown  in  Figure  6.  The  program 
straight- forwardly  attempts  to  send  parameter  words  first  to  computer  A and 
then  to  computer  B via  the  MCA.  Each  transmission  is  tried  repeatedly  until 
successful.  Therefore,  control  will  not  pass  from  CALL  11  back  to  the 
BASIC  interpreter  until  computers  A and  B have  accepted  their  parameters. 

Reception  of  the  DFT  coefficients  is  Invoked  by 
CALL  12,R(0),I(0),P 

where  R and  I are  arrays  Into  which  the  real  and  imaginary  parts  of  the  complex 
DFTs  are  stored  in  order  by  channel.  Arrays  R and  I should  be  dimensioned 
NCH*NLR  elements.  The  state  of  PFLG  received  is  passed  to  the  BASIC 
program  through  variable  P,  which  may  be  tested  to  determine  whether  computers 
A and  B are  continuing  to  process  data. 


4Ibid. 
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A flow  diagram  of  CALL  12  is  shown  in  Figure  7.  Real  time  synchronization 
of  this  program  with  CPU-A  is  achieved  by  executing  a CALL  12  each  processing 
cycle  prior  to  transmission  of  the  PFLG  by  computer  A.  Following  reception 
of  PFLG,  CALL  12  enables  the  MCA  receiver  and  waits  for  transmission  of  each 
channel's  DFT  in  turn.  Therefore,  unless  PFLG=0,  control  will  not  return  to 
BASIC  from  CALL  12  until  the  DFTs  for  all  channels  have  been  received. 

The  DFT  complex  coefficients  computed  by  CPU-A  are  in  block  floating 
point  format  with  alternate  real  and  imaginary  parts.  After  receiving  them, 

RMDFEF  moves  the  components  to  separate  arrays  and  invokes  subroutine  BFLT 
(Appendix  E)  to  convert  them  to  Data  General  floating  point  format.  It  is  also 
important  to  note  that  CALL  12  is  initial  i zed  in  part  by  CALL  11,  and  therefore 
may  not  be  invoked  unless  a CALL  11  has  been  executed. 

IV.  Operating  Procedures 

The  programs  for  computers  A and  B may  be  loaded  from  absolute  binary 
object  paper  tape  using  the  standard  NOVA  binary  loader  (reference  2).  However, 
a program  RLOAD  (Appendix  F)  has  been  written  to  transfer  programs  from  disc  to  the 
memory  of  an  execution  computer  under  the  NOVA  Disc  Operating  System  (reference  7). 
If  a disc  operating  system  on  either  CPU-C  or  D contains  the  save  files  PAPB.SV, 
PAPABFP.SV  and  RLOAD. SV,  the  commands 

RLOAD/A  PAPABFP.SV/S 

RLOAD/B  PAPB.SV/S 

may  be  executed  to  load  PAPABFP  and  PAPB  into  CPUs  A and  B. 

Following  loading  by  the  above  procedure  or  restart  at  location  lOOOg,  these 

' programs  are  ready  for  initialization  via  the  MCA.  This  may  be  accomplished  by 

invoking  a BASIC  interpreter  that  includes  RMDFED  and  running  a program  that 
executes  a CALL  11.  An  example  of  such  a program  is  given  in  Appendix  G.  It 
Illustrates  one  of  the  powerful  features  of  BASIC-conversational  input  of 
program  parameters  from  the  terminal  keyboard. 

Several  restrictions  must  be  observed  when  using  CALL  11.  The  number  of 
channels  NCH  may  be  1-32  as  limited  by  the  number  of  A/D  channels  operative  on 
CPU-B.  The  number  of  lines  in  the  DFTNL  may  range  from  8 to  8192  in  powers  of  two. 


Ibid. 

7 Disc  Operating  System  User's  Manual,  Data  General  Corporation,  Southboro,  Mass., 
1971. 
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RMDFE 


SET  MCA  TO 
RECEIVE  PFLG 


/ PFLG  \ 
RECEIVED 

\ ? y 


Y X PFLG»0 


SET  MCA  TO  READ  2NLR+2 
WORDS  STARTING  AT  R(K-NLR) 


SEPARATE  REALS  AT 
RIK-NLR)  FROM  IMAGES 
AT  l(K-NLR) 


CONVERT  NLR  REALS  AT 
R(K-NLR)  & IMAGES  AT 
l(K-NLR)  TO  DGFP 


FLOAT  PFLG  & 
RETURN  TO  BASIC 


n/ )FT\  y 

/ opppix/pn  \ 

ncuci  vcu  f 1 

FIG.  7 FLOW  DIAGRAM  OF  CALL  12 


19 


j 


I 


NSWC/WOL/TR  77-3 


CPU-B  can  contain  a maximum  of  32,768  memory  locations,  of  which  about  32,000 
are  available  under  PAPB  for  buffering  input  samples.  Therefore,  the  product 
ML*NCH  must  not  exceed  16,000  since  2*NL  locations  are  required  to  save 
samples  for  each  channel. 

Some  timing  constraints  must  also  be  observed  for  the  number  of  channels 
and  sample  frequency.  The  programs  PAPB  and  PAPABFP  will  successfully  process 
one  channel  at  8 KHz  sample  rate,  10  channels  at  3.5  KHz,  and  15  channels  at  2 kHz 
etc.  These  are  maximum  for  a 1024  line  DFT  with  no  data  returned  to  the 
destination  computer.  The  exact  limitations  depend  on  how  many  lines  are 
returned  to  the  destination  and  what  type  of  processing  is  done  there. 

Slight  increases  in  program  operating  speed  may  be  attained  in  several 
ways.  The  displays  of  data  on  the  D/A  converter  in  PAPB  and  on  the  monitor 
scope  in  PAPABFP  could  be  eliminated.  MCA  data  transfer  into  and  out 
of  computer  A could  be  overlapped  instead  of  executed  serially  as  in  PAPABFP.  Ho wever, 
the  processing  done  in  the  destination  computer  usually  ultimately  limits  the 
throughput  rate  of  this  spectrum  analysis  system. 
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0001  PAPB  APPENDIX  A - LISTING  CF  PAPB 

; 10/25/73  C.  SHIVELY 

; ARRAY  PROCESSING 

; PROGRAM  FOR  A/D  MACHINE  B 


. TITL 

PAPB 

000020 

.LOC 

20 

00020  000000  DROP: 

0 

00021  000000  I AD P: 

0 

00022  000000  ISDP: 

0 

,2REL 

00000-002000  ELL: 

2000 

: BUFFER  LOWER  LIMIT 

00001-060000  MUPL: 

60000 

; 1+HIGHEST  MEMORY  ADDRESS 

00002-000000  XCFLG: 

0 

: BEGIN  XFER  CYCLE  FLAG 

00003-177773  INTM: 

177773 

00004 -000000  SC NT: 

0 

.'SAMPLE  COUNT 

00005 - 000007- PAAD : 

N CM 

00006-000002  NP: 

2 

:t  OF  PARAMETERS 

00007-000013  NCH: 

11. 

: 9 OF  CHANNELS 

00010-002000  NL: 

1024. 

.'*  FREQ  LINES=HALF  » SAMPLE5/EL0CK 

00011 -000012-PFAD: 

PFLG 

000 12-000000  PFLG: 

0 

.'CONTINUE  PROCESSING  FLAG 

00013-100000  ETMC: 

100000 

.'EL3YTEC  MCA  CODE  1000 

00014-000377  RMSK: 

377 

000 15-000010  TOM: 

10 

.'TIME  OUT  MASK 

000 16-000017  Cl5: 

15. 

000 17-000000  CF: 

0 

: RTC  SET  FOR  EXTERNAL 

00020-000240' , AMA: 

AMEM 

00021 -000022-2AD: 

ZERO 

• 

0002 2-000000  ZERO: 

0 

00023-000000  CC NTl: 

0 

00024-000000  CCNT2: 

0 

00025-000127' ISRA: 

ISR 

00026-000000  AC0: 

0 

00027-000000  ACl: 

0 

00030-000000  AC2; 

■ 0 

00031-000000  AC3: 

0 

00032 -000104-BAT1A: 

BATl-1 

00033 - 000 1 44 - BA  T 2A : 

BAT2-1 

00034-000104- IBTP: 

EATl-1 

00035 - 0001 44 - OB TP : 

BAT2-1 

00036-000006  3CF: 

6 

0003 7-00004 5 - 1 SAD : 

ISE 

00040-000044- ISADD: 

I5B-1 

0004 1 - 00002 1 - DAAD : 

2AD 

00042-000000  DAS: 

0 

00043-000042 - DAS A : 

DAS 

00044-000000  AMRS: 

0 

000040  I SB: 

.ELK 

32. 

000040  BAT1: 

. BLK  ' 

32. 

000040  BA T2: 

.ELK. 

32. 

. nrel 

00000-060277  PAPB: 

INTDS 

•- 

: DISABLE  INTERRUPTS 

00001 '062577 

IORST 

; RESET  ALL  I/O 

00002 ' 02001 7- 

LDA 

0.CF 

; SET  CLOCK  FREQ 

00003 '061014 

DOA 

0.  RTC 

.'  TO  EXTERNAL 

00004 ' 020003 - 

LDA 

0. INTM 

.'MASK  OUT  ALL  BUT  RTC 

00005'062077 

MSKO 

0 

00005 ' 020025 - 

LDA 

0. ISRA 

.'SET  UP  INTERRUPT  SERVICE  ADDRESS 

0000? ' 040001 

3TA 

0.1 

A-l 
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00010-102400 

SUB 

0.  0 

00011 '040002- 

STA 

0. XCFLG 

00012 ' 040004- 

STA 

0. 5CNT 

00013'020021- 

LDA 

0.ZAD 

00014 '040041- 

STA 

0. DA AD 

00015 ' 020005- 

LDA 

0. PAAD 

00016 '061007 

DOA 

0. MCAR 

0001 7 "020006- 

LDA 

0.NP 

00020' 100400 

NEG 

0.  0 

00021 '062107 

DOBS 

0. MCAR 

000 22'063607 

SKPDN 

MCAR 

00023'000777 

JMP 

.-1 

00024'066207 

NIOC 

MCAR 

0002 5 '006020 - 

J SR 

e.AMA 

00026-063077 

HALT 

00027-060477  CKSW: 

READS 

0 

00030'101113 

MOVLf 

0.0.  SNC 

00031-000776 

JMP 

CKSW 

00032-060114 

NIOS 

RTC 

00033-060177 

INTEN 

00034 ' 020002 - CKXFG : 

LDA 

0.  XCFLG 

00035 ' 101004 

MOV 

0. 0. SZR 

00036-063077 

HALT 

00037-020002- 

LDA 

0. XCFLG 

00040-101005 

MOV 

0.  0.  SNR 

00041 '000776 

JMP 

.-2 

00042-126400 

SUB 

1. 1 

00043 '044002- 

STA 

1. XCFLG 

00044-060477 

READS  - 

0 

00045 '101 112 

MOVLf 

0.0.  SZC 

00046'126000 

A DC 

1. 1 

00047'044012- 

STA 

l.PFLG 

00050-020011- 

LDA 

0.  PFAD 

00051 '061006 

DOA 

0.  MOAT 

00052'102000 

A DC 

0.0 

00053-062006 

DOB 

0. MCAT 

00054-020013- 

LDA 

0. ETMC 

00055-063106 

DOCS 

0. MCAT 

00056-063606 

SKPDN 

MCAT 

00057-000777 

JMP 

.-1 

00060-062406 

DIC 

0. MCAT 

00061 '030015- 

LDA 

2.  TOM 

00062'113414 

AND# 

0. 2. SZR 

00063'063077 

HALT  ’ 

00064 ' 125005 

MOV 

1.1.  SNR 

00065 '000713 

JMP 

PAPB 

00066-020007- 

LDA 

0.NCH 

00067-040023- 

STA 

0. CCNTl 

00070-104400 

NEG 

0.  1 

00071 -034037- 

LDA 

3. ISAD 

00072-070477 

READS 

2 

00073'151120 

MOVZL 

2.2 

00074-151102 

MOVL 

2.  21.  SZC 

00075 ' 000405 

JMP 

. +5 

00076 ' 125404 

INC 

1.1. SZR 

00077'000775 

JMP 

. -3 

00100-034021- 

LDA 

3.ZAD 

00101 '000403 

JMP 

.+3 

00102-123000 

ADD 

1.0 

; RESET  XFER  CYCLE  FLAG 
; SET  SAMPLE  COUNT  =0 
; INITIALIZE  D/A  OUTPUT 
.-ADDRESS  FOR  ZERO 
; SET  UP  TO  RECEIVE  PARAMETERS 
; FROM  MASTER  COMPUTER 


; WAIT  TILL  P ARAMS  RECEIVED 

: CLEAR  DONE  AND  UNLOCK  RECEIVER 
.'ALLOCATE  MEMORY 
.-MEMORY  ALLOCATION  ERROR 
.-WAIT  HERE  TILL  SH0  SET  UP 


.•ENABLE  CLOCK  TO  INTERRUPT 


.'WAIT  HERE  TILL  5XCFLG 
.-SET  DUE  TO  COMPLETE 
.-NEW  BLOCK  OF  SAMPLES 

.•RESET  XCFLG 

; IF  5H0  UP.  CONTINUE  PROCESSING 

;AND  SET  PF LG=1 

.-ELSE.  STOP  PROCESSING  ' 

.•SET  PFLG=0 
: SEND  FELG  TO  ELSYTEC 


: CHECK  STATUS 

; DONE  DUE  TO  TIME  OUT? 

; YES.  LOOP  IN  A TOO  LONG 
: IF  PFLG=0. 

.-STOP  PROCESSING  & WAIT  FOR  PARAM; 
.•INITIALIZE  CHANNEL 
.•COUNT  TO  NCH 


.-GET  # OF  CHANNEL  FOR  D/A 
.‘SKIP  SW  0 


: IF  NO  SWS  SET  UP. 
.•OUTPUT  ZERO 
.•DISPLACEMENT  IS  SWf-1 
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000  3 PftPB 


30123 -1170150 

ADD 

0,  3 

: TO  GET  DESIRED  CHANNEL 

00104  ' 054041- 

ST  ft 

3. DAAD 

.'  D/A  OUTPUT  RDDRESS 

00105*020035- 

LDft 

0.  OB TP 

.•INITIALIZE  XFER  ADDRESS  POINTER 

00106  - 040020 

ST  ft 

0.  OADP 

: TO  OUTPUT  BUFFER  ADD  TABLE 

00107 '020010-aFRLP: 

LDft 

0.NL 

.’SET  UP  TO  XMIT  NL 

00110' 100400 

NEG 

0.  0 

; WORDS  (2rNL  PACKED  SAMPLES' 

00 111' 062006 

DOB 

0.  MCftT 

001 12 '022020 

LDft 

0. SOADP 

.•GET  NEXT  XFER  ADDRESS 

001 13 '061006 

DGft 

0.  MCftT 

00114 '020013- 

LDft 

0.  ETMC 

.*  XMIT  TO  ELSYTEC  MACHINE 

00115 '063106  XMDB : 

DOCS 

0.  MCftT 

.•READ  STATUS 

00116 '063606 

SKPDN 

MCftT 

001 17' 000777 

JMP 

.-1 

00120 ‘030215- 

LDA 

2*  TOM 

00121 '066606 

DICC 

1, MCftT 

00122 '133414 

AND# 

1.2.SZR 

.•DONE  DUE  TO  TIME  OUT? 

00123 '000772 

JMP 

XMDB 

; YES.  KEEP  TRYING 

00124 '014023- 

DSZ 

CCNT1 

; DONE  NCH  CHANNELS? 

00725 '000762 

JMP 

XFRLP 

; NO,  XMIT  NEXT  CHANNEL 

00126 '000706 

JMP 

CKXFG 

;YES.  WAIT  FOR  NEXT  BLK 

00127 '040026- I SR; 

ST  ft 

0.AC0 

.•SAVE  ACS 

00130 ' 044027- 

ST  ft 

l.ftCl 

• 1 

00131*050030- 

ST  ft 

2.  AC2 

00132*054031- 

ST  ft 

3.  AC3 

00133*020037- 

LDft 

0* ISAD 

.-SET  UP  A/D  INTO  I SB 

00134*061021 

DGft 

0. ADCV 

00135*020007- 

LDft 

0.  NCH 

;SET  UP  A/D*  FOR  NCH  CHANS 

00136*040024- 

ST  ft 

0. CCNT2 

00137*100400 

N EG 

0,  0 

00140*062121 

DOBS 

0. ADCV 

00141*034041- 

LDA 

3. DAAD 

.•ADDRESS  OF  SELECTED  CHAN 

00142*102403 

SUB 

0.  0 

00143'030036- 

LDA 

2.SCF 

00144*063621 

SKPDN 

ADCV 

.•WAIT  TILL  A/D  DONE 

00145*000777 

JMP 

.-1 

00146*025400 

LDA 

1.0.3 

.•SCALE  UP  SELECTED  SAMPLE 

00147*073301 

MUL 

; FOR  12  BIT  D/A 

00150*044042- 

STA 

1.  DAS 

.•STORE  SAMPLE  FOR  D/A 

00151*020043- 

LDA 

0. DASA 

;3ET  D/A  TO  OUTPUT  FROM 

00152*061023 

DOA 

0. DACV 

,*  DASA 

00153*102000 

ADC 

0.  0 

00 154*062123 

DOBS 

0. DACV 

; START  OUTPUT  TO  D/A 

00155*063623 

SKPDN 

DACV 

00156*000777 

JMP 

. -1 

00157*060323 

NIOP 

DACV 

.•CONVERT  SAMPLE 

00160*020034- 

LDA 

0.  IBTP 

; INITIALIZE  INPUT  ADDRESS 

00161*040021 

STA 

0. IADP 

;PTR  TO  INPUT  BUFFER  TABLE 

00162*020040- 

LDA 

0. ISADD 

.•INITIALIZE  INPUT  SAMPLE  PTR 

00163*040022 

STA 

0.  I5DP 

; TO  A/D  BUFFER 

00164*030004- 

LDA 

2. 5CNT 

00165*151222 

MOV'ZR 

2.2.  SZC 

.•SAMPLE  COUNT  ODD? 

00165  * 000413 

JMP 

RSLP 

;YES.  PACK  SAMPLES  IN  RIGHT  HALF 

00167*024014- 

LDft 

l.RMSK 

.•RIGHT  BYTE  377  MASK 

00170*022022  LSLP; 

LDft 

0.&ISDP 

; GET  NEXT  CHAN  SAMPLE 

00171*123700 

ft  ND3 

1.  0 

.•MASK  OFF  LOW  3 BITS 

00172*036021 

LDA 

3. S IADP 

.-GET  BUFFER  BASE  ADDRESS 

00173*157000 

ADD 

2.3 

.-ADD  SCNT/2  FOR  DISPLACEMENT 

00174 '041400 

STA 

0.  0.  3 

.•STORE  EVEN  SAMPLE  IN  LEFT  HALF 

001 75 ' 014024- 

DSZ 

CCNT2 

A-3 
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001 76 '000772 

JMP 

LSLP 

S0177' 151120 

M0V2L 

2-2 

00200 '0004 14 

JMP 

ISC 

00201 ' 02401 4-RSlP: 

LDA 

1 . RMSK 

00202 ' 022022 

LDA 

0. &1SDP 

00203 ' 123400 

AND 

1.0 

00204 '036O21 

LDA 

3. GIADP 

00205 '157000 

ADD 

2-3 

00206'0254O0 

LDA 

1.0.3 

0O207'123000 

ADD 

1-0 

00210'0414 00 

STA 

0-  0.  3 

00211 '014024- 

DSZ 

CCNT2 

00212'000767 

JMP 

RSLP 

00213'151140 

MC'VOL 

2-2 

00214'151400  ISC: 

INC 

2-2 

00215 '020010- 

LDA 

0-NL 

00216-101120 

MuVZL 

0.0 

00217-142404 

SUE 

2. 0. SZR 

00220-000410 

JMP 

SSCT 

0022 1'152400 

SUB 

2.2 

O0222-102000 

ADC 

0-0 

002 23 '040002- 

ST  A 

-0. XCFLG 

00224-020035-  ■ 

LDA 

0- OBTP 

00225-024034- 

LDA 

1. IBTP 

00226 '044035- 

STA 

1- OBTP 

00227 ' 040034- 

STA 

0. IBTP 

00230-05 0004 -SSCT: 

STA 

2. SCNT 

00231-020026- 

LDA 

O.  AC0 

00232-024027- 

LDA 

1.AC1 

00233 -030030- 

LDA 

2.AC2 

00234-034031- 

LDA 

3-AC3 

00235-06O114 

NWS 

RTC 

00236-060177 

INTEN 

0023  7 ' OO2000 

JMP 

30 

00240 ' 054044-AMEM: 

STA 

3. AM RS 

00241-020032- 

LDA 

0.BAT1A 

00242 '040034- 

STA 

0.  IBTP 

00243-04OO21 

STA 

0- IADP 

002 44 '020033- 

LDA 

0-  BAT2A 

00245 '040035- 

STA 

0. OBTP 

00246'040020 

STA 

0- OADP 

00247'020007- 

LDA 

0.NCH 

00250-100400 

NEC 

0.  0 

00251-024001- 

LDA 

l.MUPL 

00252-030010- 

LDA 

2.NL 

00253-034000- 

LDA 

3.BLL 

00254'056021  IBAL: 

STA 

3.  S IADP 

00255-157000 

ADD 

2.3 

00256-166512  • 

SU  BL# 

3. l.SZC 

0O257-002044- 

JMP 

SAMRS 

00260-101404 

INC 

0-0-  SZR 

O026 1 'O00773 

JMP 

IBAL 

O0262-020007- 

LDA 

0.NCH 

00263-1O0400 

N EG 

0.  0 

00264 '056O20  QBAL: 

STA 

3. SOADP 

00265 ' 157000 

ADD 

2-3 

00266 ' 166512 

SU  BL# 

3. 1. SZC 

00267 ' 0O2044- 

JMP 

eAMRS 

00270 ' 101404 

INC 

O. 0- SZR 

; SHIFT  IN  0 FOP  EVEN  SCNT 

-•RIGHT  BYTE  377  MASK 

: GET  NEXT  CHAN  SAMPLE 

-•MASK  OFF  LOW  S EITS 

-'GET  BUFFER  BASE  ADDRESS 

-•ADD  SC  NT/2  FOR  DISPLACENE 

-•GET  PREVIOUS  SAMPLE 

-•PACK  ODD  SAMPLE  IN  RIGHT  HALF 


: SHIFT  IN  1 FOR  ODD  SCNT 
; INCREMENT  SAMPLE  COUNT 
-•»  FREQ  LINES 
:2*NL=»  SAMPLES/BLOCK  ' 

;IS  SC NT=2*NL? 

-•NO.  SAVE  SCNT  & RESTORE  STATUS 
: YES.  SET  SCNT=0 
:SET  XFER  CYCLE  FLAG 

-•SWAP  OUTPUT  BUFFER 
; AND  INPUT  BUFFER  TABLE  PTRS 
: TO  INPUT  TO  PREVIOUS  PROC  BFR 
-•AND  OUT  NEW  SAMPLE  BLOCK 
-*  SAVEJMAMPLE  COUNT 
-•RESTORE  ACS 


: REENABLE  INTERRUPT 
-•RETURN  TO  MAIN  PROG 

slNIT  USE  BATl  BUFFER  ADD 

-•table  for  input 

-•USE  BATE  BUFFER  ADD 
-•TABLE  FOR  OUTPUT 


-•MEMORY  UPPER  LIMIT 
:#  LINES  = BUFFER  SIZE 
: BUFFER  LOWER  LIMIT 
-•STORE  NEXT  INPUT  BUFFER 
-•ADDRESS  IN  TABLE 
-*IS  MEMORY  ALLOCATED  >MUL? 

-*YES-  CAN'T  ALLOCATE  ENOUGH  MEMORY 


-•STORE  NEXT  OUTPUT  BUFFER 
-•ADDRESS  IN  TABLE 
; IS  MEMORY  ALLOCATED  >MUL? 

:YES.  CAN'T  ALLOCATE  ENOUGH  MEMORY 
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0005  PAPB 


120271  '300773 

JMP 

DEAL 

00272 ' 010044- 

132 

AMPS 

00273 '002044- 

JMP 

SAMR3 

000000' 

.END 

PAPB 

j allocation  successful 

: RETURN  TO  JSft+2 
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APPENDIX  B 


- LISTING  OF  PAPABFP 


0001  PAPA 


9/4/75  C.  SHIVELY 

ARRAY  PROCESSING 
PROGRAM  FOR  SPECTRUM  ANALYSIS 
IN  EL5YTEC  MACHINE  A 
SAME  AS  S/20/74,  EXCEPT  DISPLAY 
CORRECTED  FOR  NL  DIFFERENT  FROM  512 
DISPLAYS  FIRST  1024  LINES  IF  NL>512 
AND  ONLY  NL  IF  NL  <512 
REQUIRES  ELSYTEC  SUBROUTINES 
HFFTI.  CALLS . MATHS.  SCPLD 
SENDS  DATA  IN  BLOCK  FLOATING  POINT 
NLR  COMPLEX  LINES  FOLLOWED  BY  EXPONENT 
BASE  2 AND  1+ExP  OF  LARGEST  MANTISSA. 

I.E.  -#  LEFT  SHIFTS  NEEDED  TO  NORMALIZE 

largest  mantissa. 

DATA  ARE  15  BIT  FRACTIONS  WITH  BINARY  POINT 
BETWEEN  SIGN  BIT  0 AND  BIT  1 
DATA  HILL  BE  NORMALIZED  SO  THAT  MAGNITUDE 
OF  LARGEST  NUMBER  IS  BETWEEN  1/2  AND  1. 

AND  FLAG  FOLLOWING  EXP  IS  THEREFORE  0. 

UNLESS  DATA  IS  ALL  0.  IN  WHICH  CASE  NORMALIZATION 
HAS  FAILED.  AND  FLAG  = -4 


. TITL 

PAPA 

.ENT 

CTABP. ClSAV. C2SAV. TDFLG. MXLN.  MKFLG 

.ENT 

AVFLG. ALLNG. MRKSG. TRANG. PLOTG. AUTO . 

.ENT 

.OBUF. .NLN. .SCL. . FLG.PLFL6 

.ENT 

.CHAN.  .ALAD*.  .SNPD.  .OBEB.  .OZRO.  .XLGX 

.ENT 

. SCLH. .INTF. .DWD. .MLN. .NOSH 

.ENT 

AOFLG. SEFLG 

.EX  TD 

LDRAM. LNUM. CARP. FFTC. SCPLD. ARGOT.  CNTF 

000000 

. NLN  = 

0 

000001 

. GBUF  = 

1 

000002 

.FLG  = 

2 

000003 

.SCL  = 

3 

000004 

.CHAN  = 

4 

000005 

.ALAD  = 

5 

000006 

. SNPD  = 

6 

000007 

. OBEE  = 

7 

000010 

. OZRO  = 

10 

000011 

. XLGX  = 

11 

000012 

. SCLH  = 

12 

000013 

. INTF  = 

13 

000014 

. DWD  = 

14 

000015 

.MLN  = 

15 

000015 

.NOSH  = 

16 

000030 

.LOC 

30 

00030  000000 

UP  IP: 

0 

00031  000000 

UFOP: 

0 

.ZREL 

00000-003477 

DEAD: 

3477 

; OUTPUT  EUFFER  ADDRESS 

: MUST 

EE  GREATER  THAN  NMAX 

00001 -000003- 

■PAAD: 

NCH 

00002 -000004 

NP: 

4 

00003 - 0000 1 3 

NCH: 

11. 

00004 - 002 000 

NL: 

1024. 

00005-000144 

NLR: 

100. 

00006 - 000000 

RLD: 

0 

00007-002000 

NL1: 

1024. 

B-l 
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0002  PAPA 
50010-307577 
00011-000000 
00012-000000 
00013-000014- 
00014-000000 
00015-000000 
00016-020000 
00017-000010 
00020-000000 
00021-000000 
00022-000007- 
00023-000007- 
00024-000304 
00025 - 000000 
00026-000000 
0002 7 - 000000 
'00030-000377 
00031 -000000 
00032-000000 
00033-177777 
00034-000011 
00035 - 000000 
00036-000275 
0003 7 - 000000 
00040-0000 42- 
0004 1 - 00006 1 ■ 
00042-001000 
00043-017777 
00044-000000 
000':  5 000000 
00046-000001 
0004  7 - 000000 
00050-177777 
00051-000000 
00052 -000000 
00053-177772 
00054-000000 
00055-000010 
00056-000403 
0005 7 - 00 1 000 
00060 - 000000 
00061-001000 
00062-021777 
0006 3 - 000000 
00064-000000 
00065 -000002 
00066 - 000000 
000 67-177777 
0007 0 - 000000 
00071 -000000 
00072-177772 
000 73 - 000000 
000 74-000010 
00075-000403 
00076-001000 
000 77 - 000000 
00100-000403 
00101-140403 
00102-001000 


HLLM: 

7577 

ELGM: 

0 

SCLM: 

0 

PE  AD: 

pelg 

PE  LG: 

0 

MTCRF: 

0 

TMMC: 

20000 

TOM: 

10 

CCNT: 

0 

CFD: 

0 

■CTABP: 

NL1  . 

■NLAD: 

NL1 

UNPK: 

UNPAK 

UPRTN: 

0 

UPLCT: 

0 

PLFLG : 

0 

RMSK : 

377 

SEE LG: 

0 

AOELG: 

0 

TDELG: 

-1 

MXLN: 

11 

MKEL6: 

0 

AUTO. : 

AUTOG 

AVEL6: 

0 

■ClSAV: 

Cl  TAB 

■C2SAV: 

C2  TAB 

Cl  TAB; 

512. 

OBUE1 : 

17777 

ELG1 ; 

0 

SCL1 : 

0 

CHAN1 ; 

1 

ALADl ; 

0 

5NPD1; 

-1 

OBEBl; 

0 

02R01 ; 

0 

XLGX1 : 

177772 

SCLW1 : 

0 

INTE1: 

10 

DWD1; 

403 

MLN1 ; 

512. 

NOSH1 ; 

0 

C2TAB; 

512. 

0BUE2: 

21777 

ELG2: 

0 

SCL2; 

0 

CHAN2; 

2 

ALAD2: 

0 

SNPD2: 

-1 

0BEB2; 

0 

02R02: 

0 

XLGX2; 

177772 

SCLH2 : 

0 

INTE2: 

10 

DWD2: 

403 

MLN2 : 

512. 

NGSH2: 

0 

DWDLN; 

403 

DHDLG; 

140403 

CS12; 

512. 

;MAG  TAPE  MACHINE  MCA  CODE 


;LIN.  24DB=120403.4SDE=140403 


.•LINEAR.  ALL  LINES 
: LOG  4S  DB.  24DB=120403. S6DE=160403 
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££l£3-££££6i-C2TBA: 

02  TAB 

££104-177772  XLX: 

177772 

00105-1 77774  MFQUR : 

-4 

£(31  £6  - ££££££  £ C LF : 

■> 

VJ 

££l£7-££££££  FLGF: 

5 

££il £-££££££  TEM: 

£ 

• 

££111 -££££££  TNLft: 

£ 

££l  1 2 - ££££4  7 ' SC  V'P : 

RCVPF 

.NREL 

£££££' £££277  PAPA: 

INTDS 

DISABLE  INTERRUPTS 

££££! ’ £52677 

I ORB  T 

RESET  I/O 

££££2 ' £££££15 

J 6ft 

sLDRAM 

LOAD  FFT  RAM  PROG  ' 

££££3 ' £2£££l - 

LDA 

£.  PftftD 

SET  UP  TO  RECEIVE  PARAMETERS 

££££4' £5l££7 

DOA 

6. MCAR 

FROM  MASTER  COMPUTER 

££££5 ' 323332- 

LDA 

0.NP 

££££6 ' 1 ££4££ 

NEG 

0.3 

££££7 '£621 £7 

DOBS 

3. MCAR 

£££l£' £636£7 

SKPDN 

MCAR 

, 

£££11 '£££777 

JMP 

.-1 

WAIT  TILL  PARAMS  RECEIVED 

£££12'£S£2£7 

NIOC 

MCAR 

UNLOCK  RECEIVER  S CLEAR  DONE 

£££13'1£24££ 

SUB 

£.  £ 

RESET  SETUP  AND  ARITHMETIC 

£££ 14 '£40032 - 

ST  ft 

0. ftOFLG 

ERROR  FLAGS  . 

£££l5'£4££3l- 

ST  ft 

3.  SEFLG 

££0l£'£2401£- 

LDA 

l.WLLM 

SET  CHAN  1 DISP  ADDRESS  TO 

£££17'£44£43- 

STA 

1.  OEUFl 

WLLM 

£0020' 030102- 

LDA 

2/ C512 

SET  CHAN  2 DISP  ADDRESS 

£££21 ' 147200 

ADD 

2. 1 

TO  HLLM+1024  TO  DISP 

£££22 ' 1 >47603 

ADD 

2. 1 . 

■SECOND  512  LINES  IF 

£££23 ' £44062 - 

ST  ft 

1.0BUF2 

MORE  THAN  512  LINES 

£££24 / £24 ££4 - 

LDA 

l.NL 

COPY  S LINES  TO  NL1 

£££25 ' 044007- 

ST  ft 

1.NL1 

£££26 ' 132513 

SUBLs? 

1.2.SNC 

IS  NL >512 

£££27 ' 060463 

JMP 

. +3 

. 

£££3£'145 £££ 

MOV 

2.1 

•YES.  USE  512  AND 

£££31 '323133- 

LDA 

0. C2TEA 

OUTPUT  NEXT  512  LINES  ON  CHS 

£££32 '040041- 

ST  ft 

£. C25AV 

£££33 ' £ 44£42 - 

STA 

1.  Cl  TAB 

■SET  UP  s OF  LINES  FOR  OUTPUT 

£££34 '044061- 

ST  ft 

1.C2TAB 

ON  SCOPE 

00035 '044057- 

ST  ft 

1.MLN1 

£££3£ ' 044075- 

ST  ft 

1 . MLN2 

£££37 ' £20104- 

LDA 

0.  XLX 

177772  XLX  WORD  FOR  NL=5l£ 

£££4£' 132415 

SUB* 

1.2.  SNR 

FORM  XLX  HD  BITS  13-15  FOR  NL 

000*1  ' 0013*40*4 

JMP 

.+4 

2 FOR  512.  3 FOR  256.  4 FOR  12S. 

8120*2' 1251*3 

M0V2L 

1. 1 ' 

5 FOR  £4.  5 FOR  32 

£££43' 1£14££ 

INC 

£.0 

£££44 ' £££7?4 

JMP 

.-4 

£££45 '04££53- 

STA 

£. XLGXl 

£££46 ' 040072 - 

STA 

£.  XLGX2 

£0£4 7 ' £2££1 3 - RCVPF : 

LDA 

0.PFAD 

SET  UP  TO  RECEIVE 

£££5£'£5l££7 

DOA 

£. MCAR 

PROCESS  FLAG  FROM  A/D 

£££51 ' 126£££ 

ADC 

1.1 

MACHINE  S 

£££52' £551 £7 

DOES 

1 . MCAR 

£££53 ’ ££36£7 

SKPDN 

MCAR 

.-WAIT  TILL  PFLG  RECEIVED 

£££54 '£££777 

JMP 

,-l 

£££55 ' ££l££6 

DOA 

£. MCAT 

:SET  UP  TO  SEND  PFLG 

£££56 ' ££££££ 

DOE 

l.MCAT 

TO  TftPE  MACHINE  C 

£££57'£3££l£- 

LDA 

2.  TMMC 

£££££ ' £73l££ 

DOCS 

2. MCAT 

££££! ' ££3£££ 

SKPDN 

MCAT 

3-3 

i 2004  papa 
00052 ’ 323777 
DD063 ' 352535 
3336*4 ' 333317- 
33365 ’ 166333 
33366 ' 113*41*4 
33367' 125*433 
33373 ' 0440 15- 
33371 '32301*4- 
33372' 131335 
33373 '323735 
3337*4 ' 323333- 
33375 '3*43323- 
33076' 13*4*433 
30377 '073*477 
33133' 151123 
33131 ' 151132 
S3 132 '333*43*4 
33103 ' 125*43*4 
3313*4 ' 333775 
33135 '105331 
30136' 12*4*433 
00107 '044021 - 
33113' 023323 - 
33111  '3*43322- 
33112' 223313- RCVLP ; 
33113' 131*433 
3311*4'361037 
33115' 32033*4  - 
33116 ’ 133*433 
33117 '352137 
33123’ 353637 
33121’ 333777 
33122 ' 33832*4- 
33123  '333013- 
3312*4 '32*433*4- 
00125 '125120 
33126' 132*433 
33127 ' 006332 5 
30133 ' 3*4*4311- 
00131 '15 2*433 
00132 '102520 
00133 '040012- 
001 3*4 ' 03533*4 5 
00135 '020015- 
00136 ' 101005 
00137'000505 
331*43' 32*4335- 
331*41 '125120 
00142-044111- 
00 143 '030005 - 
00144'151120 


331*45' 323313- 
331*45  ‘ 113000 
00147'050110- 
00 1 50 ' 1 02 400 
00151- 0060025 
00152 ' 044107- 


• ■ 


00153 ' 020012- 
00154 ' 100400 
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JMP 

.-1 

DICC 

3. MOAT 

: CHECK  STATUS 

LDA 

2.  TOM 

ADC 

1. 1 

mNDs 

0.  2.  SZR 

; D ONE  DUE  TO  TIME  OUT? 

SUB 

1. 1 

: YES.  SET  MTCRF=0  TO  SKIP 

STA 

l.MTCRf 

; XMIT  TO  MAG  TAPE  MACHINE 

LDA 

0. PFLG 

MOV 

0.  0. SNR 

; IF  PFLG=0. 

JMP 

PAPA 

J S TOP  PRuC  3 HA  IT  F OR  PAR AMS 

LDA 

0.NCH 

: SET  CNT  TO  » OF  CHANS 

STA 

3.  CCNT 

NEG 

0.  1 

READS 

2 

; GET  ? OF  CHANNEL  FOR  D/A 

M0V2L 

2.2 

: SK IP  SW0 

MOVL 

2.2.S2C 

JMP 

.+4 

INC 

1. 1. SZR 

JMP 

.-3 

MOV 

0.1.  SK P 

: IF  NO  SWS  SET.  DISPLAY  CHAN  1 

NEG 

1. 1 

STA 

l.CFD 

JNCH+1-CH?  for  display 

LDA 

0. NLAD 

; SET  CTABP  TO  MAIN 

STA 

0. CTABP 

; WORK  AREA  PARAMETERS 

LDA 

0. HLLM 

;HORK  AREA  LOWER  LIMIT 

INC 

0.0 

; = BUFFER  ADDRESS  -1 

DOA 

0. MCAR 

LDA 

0.NL  ■ 

NEG 

0.0 

DOBS 

0. MCAR 

* 

SKPDN 

MCAR 

.'WAIT  TILL  NEXT  DATA 

JMP 

. -1 

; BLOCK  RECEIVED 

J SR 

SUNPK 

: UNPACK  SAMPLES  INTO  LEFT  HALF 

±£A- 

2.  WL-LM 

LDA 

wr  rtwwr 

l.NL 

:*  TIME  5AMPLES=2*NL 

MOVZL 

1. 1 

SUB 

0.  0 

.*  ADJACENT  LOCS 

JSR 

SLNUM 

.-FIND  LARGEST  NUMBER  IN  ORDER 

STA 

1. FLGM 

; TO  SET  FFT  INIT  SCALE  FLAG 

SUE 

2.2 

.-TAKE  FORWARD  XFRM 

SUBZL 

0.0 

; SET  INITIAL, 

STA 

0.SCLM 

.•SCALE  =1 

JSR 

SFFTC 

; OF  NEXT  DATA  BLOCK 

LDA 

0.  MTCRF 

MOV 

0'.  0.  SNR 

; IS  MAG  TAPE  COMPUTER  RESPONDING? 

JMP 

CDC 

;NO.  DON'T  SEND  DATA  TO  IT 

LDA 

l.NLR 

: SEARCH  25NLR  ADJACENT 

MOVZL 

1.1 

; LOCS  IN  WORK  AREA 

STA 

l.TNLR 

; FOR  LARGEST  MAGNITUDE 

LDA 

2.RLD 

; TO  BE  RETURNED 

MOVZL 

2.2 

LDA 

0. HLLM 

ADD 

0.2 

’ 

STA 

2.  TEM 

; SAVE  ADDR  OF  BLOCK  TO  BE  OUTPUT 

SUE 

0.  0 

JSR 

(SLNUM 

; 2’?tFL3F  >LM  > »2t4  IFLGF-1 ) 

STA 

l.FLGF 

;I.E.  FLGF  = f OF  LEFT  SHIFTS  TO  NOMAL IZE 

LDA 

0. SCLM 

; TRUE*  CORE  $2*-?  i - SCLM  j 

NEG 

0.  0 

; TRuE=C0RE?2tt ( ExP ) 

; 
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0005  PAPA 


00155 '123 000 

ADD 

1.0 

00156 ' 040106- 

ST  A 

0. SCLF 

00157'020111- 

LDA 

0.  TNLR 

00160 '0241 10- 

LDA 

1.  TEM 

00161 '030000- 

LDA 

2.  OB AD 

00162 '006007* 

JSR 

eCNTF 

00163 ' 000107- 

FLGF 

00164 '020105- 

LDA 

0. MFOUR 

00165 '0401 10- 

STh 

0.  TEM 

00166 ' 020105-CN: 

LDA 

0. MFOUR 

00167' 024107- 

LDA 

1 . FLGF 

001 70 '122405 

SUB 

1.0. SNR 

00171 '000403 

JMP 

.♦3 

001 72 '126400 

SUB 

1.1 

001 73 '000423 

JMP 

MEF-l 

00174 '030000- 

LDA 

2. OBAD 

001 75 '024111- 

LDA 

l.TNLfi 

001 76 '102400 

SUB 

0.0 

001 77 '006002* 

JSR 

SLNUM 

00200 '125005 

MOV 

1. l.SNR 

00201 '000415 

JMP 

MEF-1 

00202 '0101 10- 

ISZ 

TEM 

00203 '000402 

JMP 

.+2 

00204 '000413 

JMP 

MEF 

00205 '0201 06- 

LDA 

0. SCLF 

00206 ' 123000 

ADD 

1.0 

00207 ' 040106- 

ST  A 

0. SCLF 

00210'020111- 

LDA 

0. TNLR 

0021 1' 024000- 

LDA 

1 . OBAD 

00212 '131000 

MOV 

1.2 

00213 '006007* 

JSR 

eCNTF 

00214 '000107- 

FLGF 

00215 '000751 

JMP 

CM 

00216 '044107- 

ST  A 

1 . FLGF 

0021 7 ' 030000-MEF: 

LDA 

2. OBAD 

00220' 151400 

INC 

2.2 

00221 '071006 

DOA 

2. MCAT 

00222 '0201 11- 

LDA 

0. TNLR 

00223 '113000 

ADD 

0.2 

00224 '101400 

INC 

0.0 

00225 '101400 

INC 

0.0 

00226 '100400 

N EG 

0.0 

0022 7 '062006 

DOB 

0. MCAT 

00230 '020106- 

LDA 

0.  SCLF 

00231 '041000 

SfA 

0.0.2 

00232 '020107- 

LDA 

0.  FLGF 

00233 '041001. 

ST  A 

0. 1.2 

00234 '02401 6- 

LDA 

1.  TMMC 

00235 '067106  XMDC: 

DOCS 

1. MCAT 

00236 '063606 

. SKPDN 

MCAT 

00237 '000777 

JMP 

. -1 

00240 ' 062606 

DICC 

0.  MCAT 

00241 '030017- 

LDA 

2.  TOM 

00242 '113414 

AND# 

0.2.SZR 

00243 '000772 

JMP 

XMDC 

00244 '020020-CDC : 

LDA 

0.  CCNT 

00245 '024021 - 

LDA 

l.CFD 

00246 ' 122404 

SUE 

1.0.  SZR 

00247 '000423 

JMP 

DCT 

: CORRECT  EXP  FOR  NORMALIZATION  SHIFTS 

: MOVE  NLR  LINES  TO  OUTPUT 
: BUFFER  SHIFTING  LEFT  /FLOP /PLACES 
TO  NORMALIZE  DATA 


: SET  COUNTER  TO  NORMALIZE 
; ONLY  FOUR  TIMES 
; IF  FLGF  WAS  NOT  -4. 

.‘THEN  NORM  DONE 


; SET  FLGF =0  NORM  DONE 

: SEARCH  OUTPUT  BUFFER 
: FOR  LARGEST  AGAIN 


: IF  FLGF  NOW  0. 

.'NORM  DONE 

; IF  ALREADY  SCALED  UP 
;4  TIMES.  QUIT 

.•CORRECT  EXP  BY  SUBTRACTING 
;#  LEFT  SHIFTS  TO  BE  DONE 
; TO  NOMALIZE 


; SHIFT  LEFT  IN  OUTPUT  TO  NORMALIZE 


; SET  UP  TO  SEND  FROM  OUTPUT  BUFFER 
: ADDR  OF  EXP 


.-SEND  2*NLR+2  WORDS 

.-SEND  EXP  AS  1ST  WORD  AFTER  DATA 

: SEND  FLAG  AS  2ND  WD  AFTER  DATA 


.*  XM I T TO  MAG  TAPE  MACH 


: READ  STATUS 

.-DONE  DUE  TO  TIME  OUT? 
.'YES.  KEEP  TRYING 


: is  this  chan  one  for  display? 

:N0 


B-5 
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p: 

0336  PAPA 

33253 ' 102400 

SUB 

0.0 

33251 '040027- 

STA 

0.PLFLG  ; 

33252 '0060035 

J SR 

SCARP 

00253 '32331 2 - 

LDA 

0. 3CLM  ; 

00254 '040060- 

STA 

0.NOSH1  ; 

33255' 340377 - 

STA 

3.N0SH2  : 

33256 '060477 

READS 

3 : 

00257 '024100- 

LDA 

l.DWDLN  ; 

00260'101132 

M0V2L# 

0.0.  S2C  ; 

00261 '024101 - 

LDA 

l.DWDLG  ; 

00262 '044056 - 

STA 

1.DWD1 

00263 ' 044075- 

STA 

1.DWD2 

00264 ' 006005$ 

JSR 

SSCPLD  ; 

I 

00265 '102400 

SUB 

0.0 

K 

00266 ' 040032- 

STA 

0.AOFLG  ; 

00267 '040031 - 

STA 

0. SEFLG 

1 

00270 '020023 - 

LDA 

0. NLAD  ; 

1' 

00271 '040022- 

STA 

0. CTABP  : 

I 

00272 '014020-DCT: 

DS2 

CCNT  ; 

f 

00273 '00061 7 

JMP 

RCVLP 

00274 '0021 12- 

JMP 

SRC  VP 

00275 '001400  AUTOG: 

JMP 

0.3  ; 

E 

00276 '001401  ALLNQ: 

JMP 

1.3 

00277 '102400  MRKSG: 

SUE 

0.0 

00300 '040035- 

STA 

0.MKFLG  ; 

00301 '001400 

JMP 

0.3 

00302'001400  TRANG: 

JMP 

0.3 

00303'001400  PLOTG: 

JMP 

0. 3 

00304 '054025 -UNPAK: 

STA 

•3.UPRTN  ; 

00305 ' 020004 - 

LDA 

0.NL 

00306 '040026- 

STA 

0. UPLCT 

00307'105120 

MOVZL 

0. 1 

00310 '030010- 

LDA 

2. WLLM 

00311'151400 

INC 

2.2 

■ 

00312'143000 

ADD 

2.0 

00313-040030 

STA 

0.UPIP 

00314'147000 

ADD 

2.1 

00315'044031 

STA 

l.UPOP 

00316 '024030- 

LDA 

l.RMSK 

00317'131000  UPLP: 

MOV 

1.2 

00320-135300 

MOVS 

1.3 

00321 '022030 

LDA 

0.  SUP IP 

00322'113700 

AND  S 

0.2 

00323'052031 

STA 

2.  SUPC'P 

00324-117400 

AND 

0.3 

00325-056031 

STA 

3. SUPOP 

00326-014026- 

DS2 

UPLCT 

00327-000770 

JMP 

UPLP 

00330 ' 002025- 

JMP 

SUPRTN 

333333 ' 

.END 

PAPA 

YES.  CLEAR  POLAR 
COORDINATE  FLAG 
AND  CONVERT  TO  POLAR 
MOVE  SCALE  TO  DISPLAY 
PARAM  TAELES  FOR  * 

OF  SHIFTS  ON  OUTPUT 
IF  SH3  IS  DOWN. 

SET  OP  FOR  LINEAR  DISPLAY 
IF  SW0  IS  UP. 

SET  UP  FOR  4S  DB  LOG  DISPLAY 


DUMMY  NO  MARKS 


BUFFER  ADDRESS- 1 

SET  INPUT  AUTO  DEC 

TO  EAD=+NL 

SET  OUTPUT  AUTO  DEC 

TO  EAD+2*NL 

377  RIGHT  BYTE  MASK 

RIGHT  BYTE  MASK  IN  AC2 

LEFT  BYTE  MASK  IN  AC3 

GET  POKED  SMPLES  IN  REVERSE 

MASK  RIGHT  BYTE  INTO  LEFT 

AT  HIGHER  MEM  LOC 

MASK  LEFT  IN  LEFT 

STORE  IN  LOWER  MEM  LOC 
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0001  CNTF 

10/16/73  C.  SHIVELY 

SUBROUTINE  TO  SCALE  SIGNED 
NUMBERS  BY  POHERS  OF  2 
USING  RIGHT  SHIFTS  CNR S>0) 

Oft  LEFT  SHIFTS  CNRS<0'j 
IF  NftS=0.  MERELY  MOVES  DATA 
CALLING  SEQUENCE: 

AC0  CONTAINS  # OF  WORDS 
ACl  CONTAINS  STARTING  ADDft-1 
AC2  CONTAINS  OUTPUT  ADDft-1 
JSft  &CNTF 

NftSA  .-ADDRESS  OF  NftS 

f RETURN) 

SETS  BIT  9 IN  AOFLG=l  IF  OVERFLOW 
OR  BIT  9=0  IF  NO  OVERFLOW 
SATURATES  MAGNITUDES  AT  77777  OCTAL 


• TITL 

CNTF 

000020 

OPT  = 

20 

.ENT 

CNTF. CNTFA 

.EXTD 

AOFLG 

• 2REL 

00000- 000000  ' CN  T F : 

CNTFA 

.NREL 

00000' 050023  CNTF A: 

STA 

2.  OPT 

: SET  OUTPUT  AUTO  INC 

00001' 131000 

MOV 

1.2 

: INPUT  ADDR  TO  AC2 

00002 '040473 

STA 

0.  LCNT 

00003 ' 023400 

LDA 

0. @0. 3 

.-GET  # RIGHT  SHIFTS 

00004 '175400 

INC 

3.3 

00005 '054466 

STA 

3.RTNC 

.-SAVE  RETURN  ADDRESS 

00006 ' 101004 

MOV 

0. 0. SZR 

; IS  NR3=0? 

00007 '000407 

JMP 

CNS 

: NO.  DO  SHIFTS 

00010' 021001  MVLP; 

LDA 

0. 1.2 

;YES.  JUST  MOVE  DATA 

00011 '042020 

STA 

0. @OPT 

00012 '151400 

INC 

2.2 

00013 '014462 

DSZ 

LCNT 

00014 '000774 

JMP 

MVLP 

00015 '002456 

JMP 

SRTNC 

00016' 101112  CNS: 

MOVLf 

0.  g.  szc 

.-LEFT  SHIFTS? 

0001 7 '000422 

JMP 

LSLP-1 

; YES 

00020' 100400 

N EG 

0.  0 

: NO.  SHIFT  RIGHT 

00021 ' 040453 

STA 

0.  SCNT 

00022 '034452  RSLP: 

LDA 

3.  SCNT 

00023 '021001 

LDA 

0. 1.2 

.-NEXT  SIGNED  NUMBER 

00024 '101113 

MOVL# 

0. 0. SNC 

00025 ' 105001 

MOV 

0. 1.3KP 

00026 ' 104400 

N EG 

0. 1 

.-MAGNITUDE  IN  ACl 

00027 '125220 

MOVZR 

1. 1 

.-SHIFT  RIGHT 

00030 '175404 

INC 

3.  3. SZR 

00031'000776 

JMP 

.-2 

00032'10111 2 

MOVL# 

0.  0.  SZC 

.-CORRECT  SIGN 

00033'124400 

NEG 

1. 1 

00034 ' 046020 

STA 

I.eGPT 

00035'151400 

INC 

2.2 

00036-014437 

DSZ 

LCNT 

00037'000763 

JMP 

RSLP 

00040 '002433 

JMP 

eft  TNC 

00041 ' 040433 

STA 

0.  SCNT 

00042'034432  LSLPr 

LDA 

3. SCNT 

C-1 


£03043' 021301 

LDA 

0. 1.2 

.•NEXT  SIGNED  NUMBER 

c 

30344' 101113 

MOVLJf 

0.  0.  3NC 

00045 '135001 

MOV 

0.1. SKP 

r 

00046 ' 104400 

N EG 

0. 1 

.•MAGNITUDE  IN  ACl 

0004?' 125122 

MOVZL 

1.  l.SZC 

: SHIFT  LEFT 

00050' 000414 

JMP 

OVFL 

.-OVERFLOW  OUT  OF  SIGN 

00051 ' 1 75404 

INC 

3.  3.  SZft 

00052' 000115 

JMP 

.-3 

00353' 125112 

MOVL# 

1.  l.SZC 

.•OVERFLOW  INTO  SIGN? 

00054 '000410 

JMP 

OVFL 

.-YES 

00055' 101112  CSL: 

MOVL* 

0.0.  SZC 

.•CORRECT  SIGN 

00056' 124400 

NEG 

1. 1 

• 

00057 '046020 

STA 

i.eoPT 

I 

00060' 151400 

INC 

2.2 

00061' 014414 

DSZ 

LCNT 

• 

* 

00062' 000760 

JMP 

LSLP 

00063' 002410 

JMP 

SRTNC 

00064 '034412  OWL: 

LDA 

3.  OMSK 

.•177677 

: 

00065 '024001$ 

LDA 

l.AOFLG 

• . 

<*  • 

00066 ' 167400 

AND 

3. 1 

.•TURN  ON  BIT  9 

- 

00067 '166000 

ADC 

3.1 

; IN  OVERFLOW  FLAG 

f ' 

00070' 044001$ 

STA 

1. ftOFLG 

00071' 126220 

ADCZR 

1. 1 

.'SATURATE  AT  MAX  =77777 

00072 '000763 

JMP 

CSL 

00073' 000000  RTNC: 

0 

. 

■ 00074' 000000  30 NT: 

0 

I ^ ' 

00075 '000000  LCNT: 

0 

1 * 

00076 '177677  OMSK: 

177677 

. END 

0001  RMDFE 
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9/4/75  C.  SHIVELY 

REVISED  TO  RECEIVE  BLOCK  FLOATING  POINT 
FROM  PAPABFP.  BE  SURE  EA3IC  ALLOCATES  Ntl 
ELEMENTS  FOR  N ELEMENT  ARRAY 
BASIC  SUBROUTINES  TO  RECEIVE  DIFAR  OR 
OTHER  MULTI-CHANNEL  DATA  FROM  ELSVTEC 
VIA  MCA  FROM  ARRAY  PROCESSING 

PROGRAM  PAPA 

.ENT  IfiMD 
CALL  ll.C.  B.L.F0 
C IS  # OF  CHANNELS 
B IS  » OF  LINES  IN  TOTAL  SPECTRUM 
L IS  » OF  LINES  RETURNED  TO  BASIC 
F0  IS  CELL  * OF  FIRST  LINE  RETURNED 
THIS  ENTRY  POINT  INITIALIZES  THE 
PARAMETERS  NCH.NL.LR.  & RLD  IN 
PAPA  (ELSYTEC  PROG)  AND  IN  PAPB 
I A/D  MACHINE  B PROG).  BEFORE  CALLING 
11.  BOTH  THESE  PROGS  MUST  BE  IN 
RECEPTIVE  STATE.  I.E.  FOLLOWING  INITIAL 
LOADING.  OR  AFTER  TERMINATION  OF  A RUN 
BY  SETTING  SW0  DOWN  ON  CPU  B.  OR  BY 
RESTART  OF  BOTH  PROGS  IN  LOC  1000  13). 

.ENT  RMDFE 
CALL  12.RI0). 1(0). P 

FOLLOWING  INITIALIZATION.  SWflF  ON  CPUB  MAY  EE 
SET  UP  TO  BEGIN  PROCESSING  IN  CPU'S 
A & B.  SUBSEQUENT  CALLS  TO  12  HILL  RETURN 
COMPLEX  SPECTRAL  DATA  REAL  PARTS  IN  ARRAY 
R AND  IMAG  PARTS  IN  ARRAY  I IN  ORDER  OF 
PROCESSING . CHAN  1.  CHAN  2.  CHAN3.  ETC. 

RETURNS  PROCESSING  FLAG  IN  P 
IF  P=0.  RUN  TERMINATED  BY  3W0  DOWN  ON  CPU  B 
AND  INITIALIZATION  POSSIBLE 
IF  P»-l.  PROCESSING  IS  CONTINUING 
.ExTD  .FLOT. .FIX 
.EXT N BFLTM 

USES  BFLT  TO  CONVERT  FROM  BLOCK  FLOATING  POINT 
TO  DATA  GENERAL  FLOATING  POINT 


. TITL 

RMDFE 

.NREL 

00000 ' 054445  IRMD: 

STA 

3.RTN 

00001 ' 004435 

JSR 

CTI 

: CONVERT  f CHANS  TO  FIXED 

00002 ' 044452 

STA 

l.NCH 

00003 ' 004433 

JSR 

CTI 

: CONVERT  * LINES  TO  FIXED 

00004 '044451 

STA 

l.NL 

00005 ' 004431 

JSR 

CTI 

: CONVERT  * LINES  RETURNED 

TO  FIXED 

00006 '044450 

STA 

l.NL  R 

00007' 004427 

JSR 

CTI 

: CONVERT  1ST  LINE  CELL  TO 

FIXED 

00010 '044447 

STA 

1.  RLD 

00011 '030435 

LDA 

2. PAAD 

.-SEND  PARAMS 

00012 '024437 

LDA 

l.MNPFA 

; NCH. NL. NLR. RLD 

00013 '020437 

LDA 

0. ETMC 

; TO  ELSYTEC 

0G014 '004406 

JSR 

xPAM 

00015 '030431 

LDA 

2. PAAD 

;SEND  PARAMS 

00016 '024432 

LDA 

l.MNPFB 

: NCH . NL 

0001 7 '020434 

LDA 

0. ADMC 

; TO  A/D  MACHINE  B 

00020 ' 004402 

JSR 

XPAM 

D-l 

NSWC/WOL  TR  77-3 


0002  RMDFE 


00021  ‘002424 

JMP 

SRTN 

33322 ' 071336  XPhM: 

DOA 

2. MCAT 

: ADDRESS 

33323 ' 366336 

DOB 

l.MCAT 

; WORD  COUNT 

33324 ' 333423 

LDA 

2.  TOM 

33325 '363277  XMP: 

INTDS 

.•DISABLE  INTERRUPTS 

03326' 063136 

DOCS 

0. MCAT 

.-TRY  TO  XMIT 

3S027' 063636 

SKPDN 

MCAT 

33030' 300777 

JMP 

.-1 

.30331 ‘066606 

DICC 

l.MCAT 

.-READ  STATUS  & CLEAR  DONE 

30032 '060177 

INTEN 

.•ALLOW  BASIC  TO  INTERRUPT 

03333' 133414 

AND# 

1.2.SZR 

.•TIME  OUT? 

33034 ' 003771 

JMP 

XMP 

; YES.  TRY  AGAIN 

33035' 031400 

JMP 

0.3 

03036 '054422  CTI: 

STA 

3.  S3 

30037 '032406 

LDA 

2. 6RTN 

;GET  NEXT  PARAM  ADDRESS 

03040 '021000 

LDA 

0. 0. 2 

03041 '025031 

LDA 

1.1.2 

00042' 006 002$ 

JSR 

e.rix 

: CONVERT  TO  FIXED  POINT 

00043 '010402 

152 

RTN 

03344' 002414 

JMP 

65  3 

00045 '000000  RTN: 

0 

30346 '00005 4'PAAD: 

NCH 

33047' 000010  TOM: 

10 

00050 '177776  MNPFB : 

-2 

00051 '177774  MNPFA: 

-4 

00052' 100000  ETM C: 

100000 

00053 '040000  ADM C: 

40000 

00054 '000003  NCH: 

3 

30055' 002000  NL: 

1024. 

30056' 030100  NLR: 

64. 

00057 '000000  RLD: 

0 

30060 '003000  53: 

0 

00061 '054537  RMDFE: 

STA  . ' 

3.RTN1 

00062 '021403 

LDA 

0.  0.  3 

; ADDR  OF  REAL  ARRAY 

00063 '040530 

STA 

0.RA 

00064 '021401 

LDA 

0. 1. 3 

; ADDR  OF  I MAG  ARRAY 

00065 '040527 

STA 

0.  IA 

00066 '021402 

LDA 

0.  2.  3 

; ADDR  OF  P FLAG 

00067 '040526 

STA 

0.  PAD 

00070 '060277 

INTDS 

.•DISABLE  INTERRUPTS 

00071 '020525 

LDA 

0. PFAD 

.-SET  UP  MCA  TO  RECEIVE 

00072 '061007 

DOA 

0.MCAR 

.•FLAG  FROM  ELSYTEC 

00073 ' 102000 

ADC 

0.0 

00074 '062107 

DOBS 

0. MCAR 

00075 '063607 

SKPDN 

MCA  R 

00076 '000777 

JMP 

.-1 

33077 ‘060207 

NIOC 

MCAR 

.'CLEAR  DONE 

001 00 '0601 77 

INTEN 

.'ALLOW  INTERRUPT 

00101 '020516 

LDA 

0. PFLG 

;IF  PROCESS  FLAG  =0. 

00102 '101005 

MOV 

0.  0. SNR 

.'RETURN  WITH  NO  DATA 

00103 '000475 

JMP 

EACK 

001 04 '020750 

LDA 

0.  NCH 

.•SET  LCNT  TO  # CHANS 

00105 '040505 

STA 

0.LCNT 

00106 '020505 

LDA 

0.RA 

: START  RECEIVING  SPECTRAL  LINES 

00107 '040512 

STA 

0. INPAD 

; AT  BEGINNING  OF  REAL  ARRAY 

00110-020504 

LDA 

0.  IA 

.•START  STORING  IMAG  PARTS 

00111 '040511 

STA 

0.CIAD 

; AT  BEGINNING  OF  I MAG  ARRAY 

001 12 '020507  RCVLP: 

LDA 

0. INPAD 

.'SET  UP  MCA  TO  RECEIVE  NEXT  CH AN 

00113'051007 

DOA 

0. MCAR 

D-2 
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00114 '024742 

LDA 

l.NLft 

00115 ' 125400 

INC 

1.1 

; RECEIVE  NLR  LINES.  EXP  AND  FLAG  TOO 

00115 '124520 

NEGZL 

1. 1 

001 17' 050277 

INTDS 

.•DISABLE  INTERRUPTS 

00120 '066107 

DOES 

l.MCAR 

00121 '063607 

SKPDN 

MCPR 

00122 '000777 

JMP 

.-1 

00123 '060207 

NIOC 

MCPR 

: CLEAR  DONE 

00124 '0601 77 

IN  TEN 

; ALLOW  BASIC  TO  INTERRUPT 

0012S'034475 

LDA 

3.CIAD 

;SET  UP  ADDRESS 

00126'054435 

STA 

3.  IAI 

; FOR  FLOATING  IMAGS 

00127'054435 

3TA 

3.  OAI 

00130-030471 

LDP 

2. INPAD 

; SET  UP  ADDRESS  * 

00131'050425 

STA 

2.  IAR 

;FOR  FLOATING 

00132-050425 

STA 

2.  OAR 

; REALS 

00133'024020 

LDA 

1.20 

.•SAVE  AUTO- INC  LOG 

00134-050020 

STA 

2.20 

00135-020721 

LDA 

0.  NLR 

00136'040465 

STA 

0.  CNT 

00137-101120 

MOVZL 

0.0 

00140-143000 

ADD 

2.0 

; ADDR  PF  ELOCK  ExP 

00141'040417 

STA 

0. EXP1 

00142-040423 

STA 

0. EXP2 

00 143-022020  MVLP: 

LDA 

0.  §20 

;GET  IMAGS 

00144'041400 

STA 

0.  0.  3 

: STORE  ADJACENT  IMAG  ARRAY' 

00145-022020 

LDA 

0.  §20 

.-GET  NEXT  REAL 

00146'041001 

STA 

0.1.2 

.•COMPACT  REALS 

00147'151400 

INC 

2.2 

00150'17S400 

INC  ■ 

3.  3 

00151-014452 

DSZ 

CNT 

00152-000771 

JMP 

MVLP 

00 153-044020 

STA 

1.20 

00154'006453 

JSR 

§BFLT 

; FLOAT  REALS 

00155-000056- 

NLR 

00156 '000000  IAR: 

0 

. 

00157 '000000  OAR: 

0 

00160-000000  ExPl : 

0 

00161-006446 

JSR 

SBFLT 

.•FLOAT  IMAGS 

00162-000056' 

NLR 

00163 '000000  IAI: 

0 

00164-000000  OAI : 

0 

00165 '000000  ExP 2: 

0 

001 66 '020670 

LDP 

0.  NLR 

00167-101120 

MOVZL 

0.  0 

00170-024431 

LDP 

1. INPAD 

; INCREMENT  INPUT  (REAL) 

00171-107000 

ADD 

0.  1 

.-AND  IMAGINARY  BUFFER 

00172'044427 

STA 

1. INPAD 

.•ADDRESSES  EY  2?NLR 

00173-024427 

LDA 

l.CIAD 

;FOR  NEXT  CHANNEL 

00174'107000 

ADD 

0.1 

0017S'044425 

STA 

l.CIAD 

00176'014414 

DSZ 

LCNT 

00177-000713 

JMP 

RCVLP 

• 

00200-024417  BACK; 

LDP 

l.PFLG 

00201-125113 

MOVL# 

1. l.SNC 

.•EXTEND  SIGN  OF  PFLG 

00202-102401 

SUB 

0.  0. SKP 

00203  - 102000 

ADC 

0.0 

00204 ' 006001 $ 

JSR 

e.FLOT 

: CONVERT  PFLG -TO  F.P. 

00205  - 030410 

LDA 

2.  PAD 

;AND  RETURN 

00206 '041000 

STA 

0.0.2 

0-3 


4 


0004  ftM DFE 
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00207 '045001 

6TA 

1.1.2 

00210' 034410 

LDA 

3. RTN1 

00211 '001403 

JMP 

3.3 

i 00212 '000000 

LCNT: 

0 

00213 '000000 

RA: 

0 

00214 '000000 

1h: 

0 

00 215-000000 

PhD: 

0 

00216 '000217 

PFAD : 

PFLG 

0021 7 '000000 

PFLG: 

0 

00220 ' 000000 

RTN1: 

0 

00221 '000000 

INPAD: 

0 

00222 '000000 

Cl  AD: 

0 

00223 '000000 

CNT: 

0 

00224 ' 000000 

RTN2: 

0 

00225 '000000 

RTN3: 

0 

00226 ' 000000 

ADR: 

0 

00227' 177777 

BFLT: 

EFLTM 

.END 

I I 

II 


0001  BFLT 
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APPENDIX  E - LISTING  OF  BFLT 


9/3/75  COOKSON  & SHIVELY 

SUBROUTINE  TO  CONVERT  NORMALIZED  BLOCK  FLOATING  POINT  NUMBERS 
TO  NORMALIZED  DATA  GENERAL  FORMAT.  THE  BLOCK  EXPONENT  IS  A 
POHER  OP  2.  MAY  BE  + OR  -256<  ExPONENT<  256.  AND  THE  MANTISSAE 
ARE  SINGLE  PRECISION  2'S  COMPLEMENT  FRACTIONS.  B15.  THIS  PROGRAM 
HAS  2 ENTRY  POINTS.  ONE  FOR  CONVERTING  A SINGLE  NUMBER  AND  ONE 
FOR  CONVERTING  AN  ARRAY.  CALLING  SEQUENCES  ARE  AS  FOLLOWS; 

TO  CONVERT  A SINGLE  NUMBER: 

JSR  BFLTS 

RETURN 

PARAMETERS:  AC0=THE  MANTISSA 

A C2=THE  BLOCK  EXPONENT 

RESULTS:  AC0=SIGN.  EXPONENT  & 8 MSB  OF  MANTISSA 

AC1=16  LSB  OF  MANTISSA 


; TO  CONVERT  AN  ARRAY: 

: JSR  BFLTM 

jARAS:  0 .-ADDRESS  OF  ARRAY  SIZE  (NUMBER  OF  MANTISSA) 

1 INA:  0 ; ADDRESS  OF  INPUT  ARRAY 

.-OUTA;  0 .-ADDRESS  OF  OUTPUT  ARRAY 

:EXPA:  0 ; ADDRESS  OF  BLOCK  EXPONENT 

: RETURN 

.-THE  ARRAY  CONVERSION  MAY  BE  DONE  "IN  PLACE “ WHEN  THE  OUTPUT 
: ARRAY  ADDRESS  IS  SPECIFIED  AS  THE  SAME  AS  THE  INPUT.  IN  THIS 
.-CASE  THE  OUTPUT  HILL  EXTEND  TO  TWICE  THE  SIZE  OF  THE  INPUT 
.-BEGINNING  AT  THE  SAME  ADDRESS. 


, TITL  BFLT 
. NREL 

.ENT  BFLTS.  BFLTM 


00000' Osmoo 

BFLTM: 

LDA 

2.0.3 

.-GET  ADDRESS  OF  ARRAY  SIZE 

00001 ' 021000 

LDA 

0.0.2 

: GET  ARRAY  SIZE 

00002 '024030 

LDA 

1.  . INA 

.-SAVE  AUTO  DECREMENT  LOC  30  & 

00003 ' 0*44532 

ST  A 

1.AD30 

00004 '02 *+031 

LDA 

1. .OUTA 

00005 '0*+ *+531 

STA 

1. AD31 

00006 ' 040523 

ST  A 

0. COUNT 

00007 '175400 

INC 

3.3 

.-TO  NEXT  PARAMETER 

00010 '031400 

LDA 

2.0.3 

.-GET  ADDRESS  OF  INPUT  ARRAY 

00011 '113600 

ADD 

0.2 

.-  TO  END  OF  ARRAY 

00012 '050030 

STA 

2. . INA 

.'TO  ALLOW  WORK  IN  PLACE 

00013 '17S400 

INC 

3.3 

; NEX  PARAM 

00014 '031400 

LDA 

2.0.3 

.-ADD  OF  OUTPUT  ARRAY 

00015 '101120 

MOVZL 

0.0 

; OUTPUT  SIZE»2*INPUT 

00016 '113000 

ADD 

0.2 

0001 7 '050031 

STA 

2. . OUTA 

.-TO  OUTPUT  BUFFER 

00020'17S400 

INC 

3.3 

.-NEXT  PARAM 

00021 '031400 

LDA 

2.0.3 

.-GET  ADDRESS  OF  BLK  EXPONENT 

00022 '03 1000 

LDA 

2.0.2 

: GET  EXPONENT 

00023 ' 1 75400 

INC 

3.3 

; TO  RETURN 

00024 '054501 

STA 

3.EXFL 

:JT1ND 

DATA  GENERAL  EXPONENT  AND  REMAINDER 

0002S'126400 

SUB 

1.  1 

; GENERATE  +2 

00026'12S520 

INCZL 

1. 1 

00027'176400 

SUB 

3.3 

.-ZERO  3 TO  RECEIVE  REMAINDER 

E-l 
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0002  BFLT 


00030 '151 113 

MOVLf 

2.2. 5NC 

00031 '000456 

JMP 

PEXB 

00032 '150622 

N EG2R 

2.2.  SZC 

00033 ' 1 75400 

INC 

3.  3 

00034 ' 151222 

MOVZR 

a.  a. szc 

00035 '137000 

ADD 

1.3 

00036 '054475 

ST  ft 

3. LRAS 

00037'03447l 

LDft 

3.C64 

0O04O '156700 

SUBS 

2.3 

00041 '171000 

MOV 

3.2 

0OO42 '022030  CONV: 

LDA 

0.6.1 NA 

00043 '101122 

MOVZL 

O.O.  SZC 

00044 '100401 

NEG 

0.  0. SKP 

00045 '176401 

SUB 

3.3.SKP 

CHECK  SIGN  OF  2 EXPO 
ITS  + 

ITS  -.  TAKE  MAG.  DIV  BY  2.  CK  FOP  REM 

REM=1.  ADD  1 TO  SHIFT  COUNT 

DIV  BY  2 AGAIN.  CK  REM 

R£M=2.  ADD  2 TO  SHIFT 

REM = NO . RT  SHIFT 

CONVERT  EXPO  TO  EXCESS  64 

INTO  LEFT  BYTE 

SAVE  IT  IN  2 

GET  MANTISSA 

CHECK  SIGN 

TAKE  ABS  VALUE 

SET  SIGN  FLAG 


00046 ' 1 76620 

SUBZR 

3.3 

00047 ' 054463 

STA 

3. SIGN 

00050 '034456 

1 

LDA 

3. LBMSK 

.'ARRANGE  MANTISSA  IN 

0O051 '105300 

MOVS 

0.  1 

: ACO  & AC1  IN  DG  FORMAT 

00052 '163700 

AN  DS 

3.0 

: AC0=8  MSB 

00053' 167400 

AND 

3. 1 

; 8 MSB  OF  AC1=8  LSB  OF  MANT 

00054 '03445 7 

LDA 

3. LRAS 

: NO.  RT  SHIFT 

00055 '174405 

NEG 

3. 3. SNR 

.'EXPO  EVENLY  DIVIS  BY  4? 

O0O56 ' 000405 

JMP 

NS 

.'YES.  NO  SHIFT 

00057' 101220 

SL: 

MOVZR 

0.0 

;N  0 

PiF.FiF.l7i ' -t  FFFF.F, 

MOVR 

1.1 

00061'175404 

INC 

3.3.SZR 

.-COUNT  UP 

00062'000775 

. JMP 

SL 

• 

00063'143000 

NS: 

" ADD 

2.0 

.'ADD  IN  EXCESS  64  EXPO 

O0O64 ' 034446 

LDA 

3. SIGN 

.•SET  SIGN 

00065-163 0O0 

ADD 

3.0 

.-GOT  DG  FORMAT 

000 66'03445l 

LDA 

3.  TAD 

O00 67'041400 

STA 

0.0.3 

00070 ' 045401 

STA 

1.1.3 

00071 '076374 

DOBP 

3. FPU1 

.•LOAD  FPAC 

0O072 ' O60175 

NI  OS 

FPU2 

: NORMAL I ZE 

00073-076174 

DOBS 

3, FPUl 

.•STORE  FPAC 

00074-021400 

LDA 

0.0.  3 

00075'025401 

LDA 

1.1.3 

0OO76-O46O31 

STA 

1. ® . OUTA: FULL  BUFF  FROM  END 

00077-042031 

STA 

0. 6 . OuTA; AUTO  DEC 

00100-014431 

DSZ 

COUNT 

; DONE? 

00101 '000741 

JMP 

CONV 

:N  0 

00102-020433 

LDA 

0. AD30 

: YES.  RESTORE  AUTO  DEC 

00103-040030 

STA 

O. . INA 

00104'O20432 

LDA 

0.AD31 

00105-040031 

STA 

O. .OUTA 

00106-002417 

JMP 

SEXFL 

.•FIND 

DG  EXPO 

S REMAINDER  FOR  + BLK  EXPO 

00107 '020420 

PEXE: 

LDA 

0.  C4 

00110-151222 

MOVZR 

2.2 .SZC 

: DIV  BY  2.  CK  REM 

00111-175400 

INC 

3.  3 

I R£M=1.  4-1  SHIFT 

00112-151222 

MOVZR 

2.  2. SZC 

I DIV  BY  £ AGAIN.  CK  REM 

0O113-137000 

ADD 

1.3 

: R£M=2 

00114-175005 

MOV 

3.3. SNR 

I CK  FOR  0 REM 

00115-102401 

SUB 

O. 0. SKP 

10  REM.  EXACT  DIV  BY  4 

00116-151400 

INC 

2.2 

.'ADD  1 TO  DG  EXPO 

00117-162400 

SUB 

3.0 

;4-R£M=N0.  SHIFT 

A*. 

C\1 

1 

LfcJ 
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00120' 040413 

STA 

0. LRAS 

00121 '034407 

LDA 

3.C64 

: CONVERT 

TO 

EXCESS 

00122 '157300 

ADDS 

2.3 

; INTO  LEFT 

BYTE 

00123 ' 1 71000 

MOV 

3.2 

: SAVE  IT 

IN 

2 

00124 '000716 

JMP 

CONV 

00 125 '000000 

EXFL: 

0 

00126 '177400 

LBMSK : 

177400 

; LEFT 

BYTE  MASK 

• 

00127 '000004 

C4: 

4 

00130 '000100 

C64: 

64. 

00131 ' 000000 

COUNT: 

0 

00132 '000000 

SIGN: 

0 

.'SIGN 

FLAG 

00133 '000000 

LRAS  : 

0 

; NO.  SHIFT 

00134 '000000 

TEMP: 

0 

00135 '000000 

AD30: 

0 

; TEMP 

STOP  AUTO 

DEC 

00136 '000000 

AD31; 

0 

001 37 '000140 

'TAD: 

TEM 

000002 

JEM: 

. BLK  2 

000074 

FPU 1=74 

000075 

FPU2-7S 

000030 

. INA=30 

000031  .OUT A=3l 


; SINGLE  NUMBER  CONVERSION  ROUTINE 


00142 '054763 

BFLT5; 

STA 

3.  EXFL 

.‘SAVE  RETURN 

00 143 '1011?? 

M0V2L 

0.  0. S2C 

J 3 T £ W 

00144 '100401 

NEG 

0.0. SKP 

.*  TAKE  ABS  VALUE 

00145 '176401 

SUB 

3. 3.SKP 

:S£T  SIGN  FLAG 

00146 '176620 

SUBZR 

3.3 

00147 '054763 

STA 

3. SIGN 

00150*034756 

LDA 

3. LBMSK 

.'ARRANGE  MANTISSA  IN 

00 151*105300 

MOVS 

0. 1 

; DG  FORMAT  IN  AC031 

00152 '163700 

ANDS 

3.0 

00153'J67400 

AND 

3.1 

00154*151113 

MOVL* 

2.2.SNC 

: CK  SIGN  OF  2 EXPO 

00155*000431 

JMP 

PEX 

; + 

00156*150623 

NEGZR 

2.2.  SNC 

;DIV  BY  2.  CK  REM 

00157 '000403 

JMP 

D10 

: REM=0.  NO  SHIFT 

00160*101220 

MOVZR 

0.0 

00161*125200 

MOVR 

1.  1 

00162' 1S1223 

D10: 

MOVZR 

2.2. SNC 

: DIV  BY  2.  CK  REM 

00163*000405 

JMP 

D20 

:REM*e 

00164 '101220 

MOVZR 

0.0 

: REM=2.  2SHIFTS 

001 6S ' 125200 

MOVR 

1. 1 

00166*1012 20 

MOVZR 

0.0 

00167' 125200 

MOVR 

1.  1 

00170*034740 

D20: 

LDA 

3.C64 

:CONV  TO  EXCESS  64 

00171*156700 

SUBS 

2.3 

: SUB  2 EXPO/ 4 FROM  64 

00172*163000 

ADD 

3.0 

; INSERT  EXPO 

00173*034737 

NfiM: 

LDA 

3.  S I GN 

.-FIX  SIGN 

00174*163000 

ADD 

3.0 

; DONE 

00175*034742 

LDA 

3.  TAD 

00176 '041400 

STA 

0.0.3 

00177*045401 

STA 

1.1.3 

00200*076374 

DOBP 

3.FPU1 

: LOAD  FPAC 

00201*060175 

NIOS 

FPU2 

.'NORMALIZE 

00202*076174 

DOBS 

3. FPU1 

.'STORE  FPAC 

00203 '021400 

LDA 

0.  0.  3 

? 

00204 '025401 

LDA 

1. 1.  3 

00205*002720 

JMR 

6EXFL 

E-3 

! 


000*4  BFLT 
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; FOR 

POSITIVE 

2 EXPO 

00206 '1 76*400 

PEX: 

SUB 

3.  3 

00207' 151222 

MOVZR 

2.2.SZC 

00210' 175*400 

INC 

3.3 

00211 '151223 

MOVZR 

2. 2. SNC 

00212 '000*403 

JMP 

Rl 

00213 '175400 

INC 

3.3 

002 1 *4 ' 1 7S*400 

INC 

3.3 

00215' 175005 

Rl: 

MOV 

3. 3. SNR 

00216 '000*413 

JMP 

EV*4 

0021 7 '151*400 

INC 

2.2 

00220 '0*4071  *4 

STA 

0. TEMP 

00221 ' 020706 

LDA 

0.  C*4 

00222 '162*400 

SUB 

3.0 

00223 ' 1 1 4*400 

NEG 

0.3 

0022*4 '020710 

LDA 

0. TEMP 

00225 '101220 

ISL: 

MOVZR 

0.0 

00226 '125200 

MOVR 

1.1 

00227 '175*40*4 

INC 

3.  3.SZR 

00230 '000775 

JMP 

ISL 

00231 '03*46  77 

EV*4: 

LDA 

3.  C6*4 

00232 '173300 

ADDS 

3.2 

00233 '1*43000 

ADD 

2.0 

0023*4 ' 000737 

JMP 

.END 

NRM 

; SHIFTS = *4 -REM 
: DIV  BY  2.  CK  REM 
; NEED  3 OR  LESS  R T SHFT 

;REM=0  THIS  DIV 


;CK  TOR  EVEN  DIV  BY  *4 
: EVEN  *4.  NO  SHIFTS 
: NEED  TO  SHFT.  ADD  1 TO  16  EXPO 
: NEED  AN  AC 

: SH-*4-REM 
: SHIFT  COUNT 
.'RECALL  MSB 
: SHIFT  MANTISSA 


: CONVERT  TO  EXCESS  6 *4 
; INTO  L BYTE 
; PUT  IN  EXPO 


-4 

E 


0001  RLOAD 
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.TITL  RLOAD 

9/17/75  C.  SHIVELY  (R.H.  DAVIS) 

& J.P.  COCKSON 

PROGRAM  TO  TRANSMIT  VIA  THE  MCA  A SAVE  FILE 
FROM  A NOVA  HAVING  DOS  SUPPORT  TO  ThE  MEMORY 
OF  ANOTHER  NOVA  FOR  EXECUTION 
THE  RECEIVING  MACHINE  SHOULD  EE  " PROGRAM 
LOADED"  WITH  BIT  0 SET  ON  AND  DEVICE  CODE 
07  IMCARJ  IN  THE  CONSOLE  SNITCHES 
COMMAND  FORMAT: 

RLOAD/Sl  FILE.SV/S2/S3 


SI 

A 

B 

C 

D 

32 

S 


2 


MCA  RECEIVER  CODE 
10 
04 
02 
01 

OR  S3  LOCATION/START  MODE 

AFTER  LOADING.  START  PROGRAM 
EXECUTION  AT  CONTENTS  OF  LOC  405 
I HALT  AFTER  LOADING  IF  NOT  USED) 
START  LOADING  SAVE  FILE  IN  LOC  0 
(LOAD  AT  LOC  16  IF  NOT  USED) 


; 

IF  THE 

DESIRFn  SAVE  FILE  DOES  NOT  HAVE  THE 

• 

SV  NAME 

EXTENSION.  SIMPLY  GIVE  THE  FILE  NAME 

. NREL 

00000 ' 020547  RLOAD: 

LDA 

0. CFNBP  : COM. CM  BYTE  POINTER 

00001 ' 126400 

SUB 

1. 1 

00002 ' 006002 

. SYSTM 

00003 '074001 

.OPEN 

1 .‘OPEN  COM.  CM  ON  1 

00004 ' 000465 

JMP 

ERROR 

00005 '020543 

LDA 

0.PRNEP  : PROGRAM  NAME  BYTE  POINTER 

00006 '006002 

.SYSTM 

00007 '075401 

.RDL 

1 .'READ  OVER  "RLOAD" 

00010 '000461 

‘ JMP 

ERROR 

00011 '020541 

LDA 

0.DSBP  ; DSW  BYTE  POINTER 

00012 '024520 

LDA 

1.C4 

00013' 006002 

.SYSTM 

000^4 ' 075001 

• RDS 

1 • : GET  DEVICE  SWITCH  WORD 

00015 '000454 

JMP 

ERROR 

00016 ' 020533 

LDA 

0. IFNBP 

0001 7 '006002 

.SYSTM 

00020 ' 075401 

.RDL 

1 .'GET  INPUT  FILENAME 

00021 '000465 

JMP 

INARG  .'ERROR  EXIT 

00022 '020531 

LDA 

0.  MS  BP  .'MODE  SW  BYTE  POINTER 

00023 '024507 

LDA 

1.C4  .'GET  SAVE  FILE  INITIAL  LOC 

00024 ' 006002 

.SYSTM 

.'AND  START/HALT  SWITCHES 

00025 '075001 

.RDS 

1 

00026 ' 000443 

JMP 

ERROR 

00027 '006002 

. SYSTM 

00030 '074401 

.CLOSE 

1 .'DONE  READING  COM.  CM 

00031 '000440 

JMP 

ERROR 

00032 '020517  OPNIN: 

LDA 

0. IFNBP 

00033 ' 126400 

SUB 

1. 1 

00034 '006002 

.SYSTM 

00035 '074001 

• OPEN 

1 .'OPEN  INPUT  FILE  ON  1 

00036 ' 000433 

JMP 

ERROR 

0003 7 '03053 7 

LDA 

2.  MSW*1  .'CHECK  FOR  S AND  2 SNITCHES 

00040 ' 034501 

LDA 

3.SMSK  .'OCTAL  020000  MASK 

" — — 


V'  ■ ' y~ 
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000*1 '157*0* 

AND 

2.  3.  S2R 

000*2 ' 000*03 

JMP 

. +3 

000*3 ' 020*30 

LDA 

0.  HLT 

000** '0*2*77 

STA 

0.6.  STI 

000*S ' 03**  75 

LDA 

3.2MSK 

000*6 ' 15-7*0* 

AND 

Z.3.SZR 

000*7 ' 000*03 

JMP 

. *3 

00050 '020*6* 

LDA 

0.C16 

00051 '0*2*73 

STA 

0.  6 . SAD 

00052 '020*73 

LDA 

0.  BBLKP 

00053 '02**6* 

LDA 

1.C256 

0005* '00**37 

JSR 

SEND 

00055 '020* 77  RDL UP: 

LDA 

0.  OBKBP 

00056 '02**62 

LDA 

1.CS12 

00057 '006002 

. SYSTM 

000S0 ' 075001 

• RDS 

1 

00061 '000*05 

JMP 

CKEOF 

00062 '020*6* 

LDA 

0.  OBLKP 

00063 '02**5* 

LDA 

1.C256 

0006* '00**27 

JSR 

SEND 

00065'000770 

JMP 

RDLUP 

00066 '020**5  CKEOF: 

LDA 

0.  C6 

00067' 112*15 

SUB* 

0. 2.  SNR 

00070 ' 000*0* 

JMP 

ENDFL 

giffig i~7i  ' P’,B',p.i7icr.9  roono. 

CV/CTM 

00072 ' 066*00 

. ERTN 

00073 ' 063077  HLT: 

HALT 

0007* '020*52  ENDFL: 

LDA 

0. OBLKP 

00075 ' G2***2 

LDA 

1. C256 

00076 '125*00 

INC 

1.  1 

00077'00**1* 

JSR 

SEND 

00100'006002 

.SYSTM 

00101 '07**01 

. CLOSE 

1 

00102-000767 

JMP 

ERROR 

00103 '006002 

.SYSTM 

0010* '06**00 

.RTN 

00105-063077 

HALT 

00106 '020*25  INARG: 

LDA 

0.  C6 

00107'112*1* 

SUB* 

0.2. S2R 

001 10 '000761 

JMP 

ERROR 

00111 '030*25 

LDA 

2. CB100 

00112-000757 

JMP 

ERROR 

00113'060277  SEND: 

INTDS 

0011* '12**00 

NEG 

1.1 

00115-066206 

DOBC 

1 . MCAT 

00116-061006 

DOA 

0. MCAT 

00117'02**5* 

LDA 

l.DSW 

00120-067106  SENDl: 

DOCS 

1 . MCAT 

00121-063606 

SKPDN 

MCAT 

00122-000777 

JMP 

.-1 

00123'062606 

DICC 

0. MCAT 

0012* '0601 77 

INTEN 

00125'101200 

MOVR 

0.  0 

00126'101202 

MOVR 

0.0.  S2C 

00127'001*00 

JMP 

0.3 

00130-060277 

INTDS 

00131-000767 

JMP 

SENDl 

000001 

. TxTM 

1 

00132-00000*  C*: 

* 

: IF  5 SWITCH  SET.  EXECUTE 
; SAVE  FILE  AFTER  LOADING 
; OTHERWISE.  SET  UP 
; BOOTSTRAP  TO  HALT 
; OCTAL  000100  HASK 
; IF  2 SWITCH  SET.  LOAD 
.•SAVE  FILE  STARTING  AT  LOC  0 
.'OTHERWISE.  SET  UP  BOOTSTRAP 
.*  TO  START  LOAD  AT  LOC  16 
.•BOOTSTRAP  BLOCK  POINTER 
••SEND  256  WORD  BOOTSTRAP 
: TO  SLAVE  CPU 
.•READ  NEXT  256 
.•WORDS  FROM  INPUT  FILE 


; IF  ERROR  CHECK  FOR  EOF 
.•SEND  NEXT  256 
; WORDS  TO  SLAVE  CPU 


: IF  EOF  ERROR. 

.•SEND  LAST  BLOCK 

« Pftnr.o  nrri  m.M  ▼ /■%  r*.<-\  r* 

« WIXiNWH  l\UIU(\il  I k/  UUJ 

; WITH  ERROR  MESSAGE 
; ON  TTO 

4 

.•SEND  LAST  BLOCK  OF 
; 257  WORDS  TO  SLAVE  CPU 


: CLOSE  INPUT  FILE  ON  1 


; RETURN  TO  DOS 

JlF  EOF  ERROR. 

;NO  INPUT  FILE  NAME  GIVEN 
: OTHER  ERROR  EXIT 
.*  IF  NOT  INPUT  FILE  NAME 
.♦TVPE  "NOT  ENOUGH  ARGUMENTS' 
.•GET  FREE  OF  DOS 

.'SET  COUNT 
.•SET  ADDRESS 
.•SELECT  RECEIVER 
; START  TRANSFER 


: CHECK  STATUS 
: ALLOW  CTRL  A INTERRUPT 
; IF  TRANSMITTER  WORD 
.•COUNT  DONE.  RETURN 
; FOR  NEXT  BLOCK 
: OTHERWISE.  TRY  TO  FORM 
.'LINK  AND  SEND  AGAIN 


F-2 
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00133 '000006  CS: 

6 

0013R '000016  Cl6: 

16 

00135 '000031  CB31 ; 

31 

001 36 '0001 00  CB100: 

100 

30137 '000400  C256 : 

256. 

00140 ' 001000  C512: 

512. 

00141 '020000  5MSK: 

020000 

00142 '000100  ZMSK: 

000100 

00143 ' 000262 ' .STI: 

STI 

00144 ' 003244 ' . SAD: 

SAD 

00145 '000211 'BBLKP: 

BTSTP 

00146' 0006 1 1 ' OBLKP : 

OBLK 

00 147' 000332 " CFNBP : 

25CFNME 

00150' 000342 ‘ PRNBP : 

25P RNBK 

00151 '000376“ IFNBP: 

25 IFNME 

00152' 000366 “ DSBP : 

2*DSH 

00153' 0003 72 " MS  8P : 

25MSW 

00154 ' 001422 ' OBKBP: 

250BLK 

000001 

. TXTM 

1 

CFNME; 

.TXT 

5C0M . CM* 

00155 '041517  - 

• 

302 56 '046456 
00157'041515 

00 160 '00000C5 

000012  PRNBK : 

. BLK 

10. 

000002  DSW: 

. BLK 

2 

000002  MSW: 

.BLK 

2 

003012  IFNME: 

.BLK 

10. 

# 

9/17/7S 

J.P.  COOKS ON  a C. SHIVELY 

; the  following  program  is  designed  to  ee  loaded  into 

; MEMORY  LOCATIONS  3 TMROUGM  377  OCTAL  OF* 

;A  MACHINE  VIA  THE  DATA  CHANNEL  WHILE  THAT  MACHINE  IS 
.-EXECUTING  A JMP  377  IN  377.  IT  FIRST  SIZES  MEMORY  THEN 
; TRANSFERS  A BLOCK  OF  SIZE  'BSIZE"  BEGINNING  IN  LOCATION 
; *LBtx*  TO  UPPER  MEMORY.  FROM  "THE  LAST  LOC  - BSIZE  + 1" 
; THRU  THE  LAST  LOCATION.  IT  THEN  JUMPS  TO  THE  FIRST  LOC 
.-WHICH  WAS  TRANSFERRED  TO  UPPER  MEMORY. 

: THE  INTENTION  IS  TO  USE  THIS  PROGRAM  AS  A "BOOTSTRAP" 

! TO  BE  LOADED  VIA  THE  MCA  WITH  THE  ASSISTANCE  OF  THE 

; internal  rom  bootstrap  and  some  transmitter  under  dos. 

.-THE  BLOCK  TRANSFERRED  TO  UPPER  MEMORY  IS  TO  BE  ANOTHER 
; PROGRAM  CAPABLE  OF  LOADING  A SAVE  FILE  VIA  THE  MCA 


00211 '102000 

BTSTP: 

A DC 

0.0 

-1  TO  AC0 

00212 '034433 

LDA 

3.K2 

THE  TEST  LOC  PTR  IN  3 

IS  1024 

00213 '165000 

MOV 

3. 1 

POINTER  TO  1 

00214 ' 030432 

LDA 

2.C  31 

MAX  MEM-31K 

00215 '050433 

STA 

2. COUNT 

SET  UP  COUNTER 

00216 '041400 

MEML : 

STA 

0.0.3 

STORE  -1 

0021 7' 031400 

LDA 

2.0.  3 

LOAD  IT  BACK 

00220' 112404 

SUB 

0.  2.SZR 

DID  IT  COME  BACK? 

00221 '000404 

JMP 

TEND 

NO.  FOUND  THE  END 

00222 ' 137300 

ADD 

1.3 

YES.  GO  UP  1024  & TRY 

AGAIN 

00223 '014425 

DS2 

COUNT 

CHECK  UP  TO  3 IK 

00224 ' 300772 

JMP 

MEML 

NO.  CONTINUE  LOOKING 

0022S ' 020424 

TEND: 

LDA 

0. BSIZE 

GET  SIZE  OF  REST  OF  BOOT 

00226 ' 040422 

STA 

0. COUNT 

FOR  XFER  TO  UPPER  MEM 

00227' 116400 

SUB 

0.3 

1ST  LOC  IN  UPPER  BOOT 

F-3 
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0023 0 ' 054*22 

ST  A 

3.  .UBT 

.-SAVE  IT  TO  GO  THERE 

00231 '030422 

LDA 

2. .LBTX 

.-1ST  LOC  IN  LOWER  BOOT  FOR  XFER 

30232 '025000 

BTxF : 

LDA 

1.0.2 

; DO  THE  XFER 

30233 ' 045430 

STA 

1.0.3 

03234' 151400 

INC 

2.2 

00235 ' 1 75403 

INC 

3.3 

••NEXT  INST  FOR  XFER 

00236' 014412 

• 

DSZ 

COUNT 

: FINISHED? 

00237 '000773 

JMP 

BTXF 

; NO.  XFER  NEXT  INSTRUCTION 

60240 ' 620434 

LDA 

0.  SAD 

; SET  RECEIVER  START  ADDRESS 

06241 ‘061667 

DOA 

0.  MCAR 

36242 ' 624435 

LDA 

1.M2S7 

.-SET  RECVR  WD  COUNT  - 257 

03243 '032437 

JMP 

6.  UBT 

; VES.  GO  TO  UPPER  BOOT 

66244' 006600 

SAD: 

6 

; SAVE  FILE  1ST  LOCATION 

66245 ' 662666 

K2: 

2006 

; 1024  = MIN  MEM  INCREMENT 

00246' 006037 

C 31: 

31. 

;MAX  ADDRESS  IS  3lK 

6624 7 '177377 

M2S7: 

-257. 

66256 ' 666660 

COUNT: 

6 

63251' 600016 

BSIZE: 

10 

.•SIZE  OF  XFER  TO  UPPER  MEM 

66252' 066666 

.UBT: 

6 

; TO  BEGIN  OF  UPPER  BOOT 

602 S3 ' 666643 

•LBTX: 

43 

:TO  BEGIN  OF  LOWER  BOOT  XFER 

00254 '066167 

LBTX: 

DOBS 

l.MCAR 

.-SET  RECVR  WD  COUNT  * 257 

66255 ' 063667 

SKPDN 

MCAR 

••WAIT  UNTIL  DONE  SET 

00256 '063777 

JMP 

.-1 

66257'0&2467 

DIC 

0. MCAR 

: IF  257  WORDS  RECEIVED. 

rxcr.oc  rr.  * * r?.*  rx+.n 

tr. 

r*  rr.  r* 

. i AffT  tvi  r\r\L/  ^ t*  i_i  f-  r-.  i i r e r 

30261 '000773 

JMP 

LBTX 

; RECEIVE  ANOTHER  BLOCK 

66262 ' 60240 1 

ST  I: 

JMP 

e.  +i 

: JMP  THROUGH  LOC  405 

00263 '100405 

1 03405 

; TO  PROGRAM  STARTING  ADDRESS 

000324 

. BLK 

324 

: GAP  TO  PUT  NEXT 

66616' 066336 

JMP 

0 

; INSTRUCTION  IN  LOC  377 

666401 

OBLK : 

.BLK 

257. 

000000 ' 

.END 

RLOAD 

F-4 


, .._;  A . . 


Name: 
Format : 
Purpose: 


Switches: 
Global : 


Local : 


Asterisk: 

Errors: 


Examples: 


’TT"*r: 


NSWC/WOL  TR  77-3 


NSWC/WOL  TR  77-3 


RLOAD 


RLOAD  SAVE_F  ILENAME 


To  transmit  via  the  MCA  a save  file  from  the 
disk  on  a Nova  with  LOS  to  the  memory  of 
another  Nova  for  execution 


Required  to  specify  the  destination  computer. 
The  following  four  letter  codes  are  recognized: 


/A  computer  with  MCA  code  1000  (8) 
/B  computer  with  MCA  code  0100  (4) 
/C  computer  with  MCA  code  0010  (2) 
/D  computer  with  MCA  code  0001  (1) 


/S  - Start  save  file  execution  after  loading 
by  .jumping  to  the  storting  address  set  by  the 
relocatable  loader  in  location  405  of  the 
save  file,  if  not  used,  the  destination 
computer  will  halt  in  location  HOI- 1 after 
loading,  where  KCM  is  the  last  location  in 
the  lowest  contiguous  memory  block. 


/Z  - Begin  loading  save  file  at  location  Zero 
in  the  destination  computer.  (The  save  file 
must  have  been  created  using  the  /Z  switch 
with  the  RLDR  command.)  If  not  used,  loading 
of  the  save  file  will  start  in  location  16g. 


Not  permitted. 


ILLEGAL  FILE  NAME 


FILE  DOES  NOT  EXIST 


NOT  ENOUGH  ARGUMENTS 


RLOAD/C  PROG . SV 

causes  save  file  PROG. S\  to  be  loaded 
into  computer  C beginning  in  location  16g 
with  halt  after  loading. 


RLOAD/D  FOO/Z/S 

causes  save  file  F00  to  be  loaded  into 
computer  D beginning  in  location  0 with 
automatic  transfer  to  F'JO's  start  address, 
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. 
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Note: 


u. 


The  destination  computer  should  be  exerutii 
a JMF  377  in  location  377,  with  the  MCA  re< 


ing 

receiver 

set  up  to  receive  at  least  256  words  starting 
in  location  0.  If  the  MCA  receiver  has  been 
modified  so  that  an  IORST  resets  its  word  and 
address  counters  to  0,  simply  program  load  with 
bit  0 set  on  and  device  code  07  (MCAR)  in  the 
console  switches.  Otherwise,  the  following 
program  must  be  executed  in  the  destination 
computer: 


START: 


C377 : 


sun 

DO  A 

do  ns 

LDA 
ST  A 
JMP 


0,0 

0 , MCAR 
0 , MCAR 
0,C377 
0,377 
377 


102-100 

061007 

062107 

020402 

040377 

000377 


<- 


The  RLOAD  command  may  be  used  to  advantage 
for  reloading  DOS  onto  a disk  from  another 
DOS  disk  on  which  the  system  save  file  SYS.SV 
resides.  For  example,  to  restore  DOS  on  disk  C 
from  disk  B.  issue  the  following  commands: 


RLOAD/C  SYS . SV/Z/S  (on  B) 

loads  DOS  into  C core 


LOAD/AA  $PTR  (on  C) 

loads  MCAR .SV  onto  C disk  from  dump  tape 


MCAT/C  SYS.SV  (on  R) 

MCAR  ( on  C ) 

loads  DOS  save  file  onto  C disk  from  R disk 


INSTALL  SYS.SV  (on  C) 

installs  DOS  to  boot  from  C disk 


TVPE  SPT  CS 

0010  REM  PROGRAM  TO  INITIALIZE  PAPB  iFAPABFP 
OOrfO  REM  AND  READ  SPECTRUM  PRINTS  LARGEST 
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DISTRIBUTION 


Defense  Documentation  Center 
Cameron  Station 
Alexandria,  VA  22314 


•.  ATTENTION  UNC  AOOftESSES: 

* • ’* 


C. 

I I HIMOVt  THIS  FACILITY  FROM  THE  DISTRIBUTION  LIST  FOR  TECHNICAL  REPORTS  ON  THIS  SUBJECT. 


NEW  ADDRESS  (Show  Zip  Cod*) 


TO  ALL  HOLDERS  OF HSWC/WOL  TR  77-3 

by  Curtis  A.  Shively.  Code  CU-22 
DO  NOT  RETURN  THIS  FORM  IF  ALL  INFORMATION  IS  CURRENT 


A.  FACILITY  NAME  AND  AODRESS  (OLD)  (Show  Zip  Coda) 
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TO  AIO  IN  UPDATING  THE  DISTRIBUTION  LIST 
FOR  NAVAL  SURFACE  WEAPONS  CENTER,  WHITE 
OAK  LABORATORY  TECHNICAL  REPORTS  PLEASE 
COMPLETE  THE  FORM  BELOW: 


DEPARTMENT  OF  THE  NAVY 
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POSTAGE  AND  PEES  PAID 
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